Added H5Fdelete_f with test

brtnfld · Dec 30, 2023 · 58da38a · 58da38a
1 parent bce9db4
commit 58da38a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/fortran/test/tH5F.F90 b/fortran/test/tH5F.F90
@@ -479,6 +479,11 @@ SUBROUTINE mountingtest(cleanup, total_error)
        total_error = total_error + 1
     ENDIF
 
+    IF(cleanup) CALL h5_cleanup_f(filename1, H5P_DEFAULT_F, error)
+    CALL check("h5_cleanup_f", error, total_error)
+    IF(cleanup) CALL h5_cleanup_f(filename2, H5P_DEFAULT_F, error)
+    CALL check("h5_cleanup_f", error, total_error)
+
     RETURN
   END SUBROUTINE mountingtest