Allocate a variable before usage...

ElmerCSC · Aug 21, 2024 · b051df9 · b051df9
1 parent 93b3b50
commit b051df9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/fem/src/ModelDescription.F90 b/fem/src/ModelDescription.F90
@@ -4224,6 +4224,8 @@ SUBROUTINE LoadRestartFile( RestartFile,TimeCount,Mesh,Continuous,EOF,SolverId)
       CALL Info(Caller,'Skipping restart for child mesh',Level=4)
       RETURN
     END IF
+
+    ALLOCATE(CHARACTER(MAX_STRING_LEN)::Row)
 
     ! This routine may be called either in Simulation section or from Solver section
     IF( PRESENT( SolverId ) ) THEN
@@ -4334,7 +4336,6 @@ SUBROUTINE LoadRestartFile( RestartFile,TimeCount,Mesh,Continuous,EOF,SolverId)
 
     RestartFileOpen = .TRUE.
 
-    ALLOCATE(CHARACTER(MAX_STRING_LEN)::Row)
     READ( RestartUnit, '(A)', IOSTAT=iostat ) Row
     IF( iostat /= 0 ) THEN
       CALL Fatal(Caller,'Error reading header line!')