Merge pull request #227 from openmopac/stray-disk-access

Delay null file handle closure until after post-processing
openmopac · Nov 17, 2024 · c44737d · c44737d
2 parents c92b082 + cd9b9aa
commit c44737d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/interface/mopac_api_finalize.F90 b/src/interface/mopac_api_finalize.F90
@@ -50,12 +50,12 @@ module subroutine mopac_finalize(properties)
     integer :: status, i, j, size
     type(c_ptr), allocatable :: pptr(:)
 
-    ! close dummy output file to free up /dev/null
-    close(iw)
-
     ! record properties
     if (.not. moperr) call mopac_record(properties)
 
+    ! close dummy output file to free up /dev/null
+    close(iw)
+
     ! collect error messages & assign NULL pointers for memory safety
     if (moperr) then
       properties%charge = c_null_ptr