destructor: suppress incorrect message

geospace-code · Jul 18, 2021 · 4d3afbc · 4d3afbc
1 parent 340d733
commit 4d3afbc
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/interface.f90 b/src/interface.f90
@@ -1124,6 +1124,8 @@ subroutine destructor(self)
 
 type(hdf5_file), intent(inout) :: self
 
+if (.not. self%is_open) return
+
 print *, "auto-closing " // self%filename
 
 call self%close()