Small issue reading edges

Sometimes I do things right, then I change them thinking my old self was
an idiot and then they break.

The positive point: the solutions end up being better.

src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90

@@ -363,10 +363,13 @@ MODULE moduleMeshInputVTU
 
           END SELECT
 
-          !Init edge
-          CALL self%edges(e)%obj%init(n, p, entitiesID(n))
+          ! If an edge was found, init it
+          if (allocated(p)) then
+            call self%edges(e)%obj%init(n, p, entitiesID(n))
 
-          DEALLOCATE(p)
+            deallocate(p)
+
+          end if
 
         END DO