Small fix.

ElmerCSC · Jan 29, 2025 · 59bbd13 · 59bbd13
1 parent 5cd8608
commit 59bbd13
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/fem/src/Lists.F90 b/fem/src/Lists.F90
@@ -873,8 +873,12 @@ SUBROUTINE VariableAdd( Variables,Mesh,Solver,Name,DOFs,Values,&
       TYPE(Solver_t), POINTER :: VSolver
 !------------------------------------------------------------------------------
 
-      CALL Info('VariableAdd','Adding variable > '//TRIM(Name)//&
-          ' < of size '//I2S(SIZE(Values)),Level=15)
+      IF(ASSOCIATED(Values)) THEN
+        CALL Info('VariableAdd','Adding variable > '//TRIM(Name)//&
+            ' < of size '//I2S(SIZE(Values)),Level=15)
+      ELSE
+        CALL Info('VariableAdd','Adding variable > '//TRIM(Name), Level=15)
+      END IF
 
       NULLIFY(VSolver)
       IF (PRESENT(Solver)) VSolver => Solver