Improve init subroutine

gha3mi · Jan 23, 2024 · a4c867d · a4c867d
1 parent 5ccf38d
commit a4c867d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/forbenchmark_default.f90 b/src/forbenchmark_default.f90
@@ -73,6 +73,7 @@ elemental impure subroutine init(this, nmarks, title, filename, nloops, timer)
 
       if (nmarks <= 0) error stop 'nmarks must be greater than zero.'
 
+      if (allocated(this%marks)) deallocate(this%marks)
       allocate(this%marks(nmarks))
 
       compiler =''