diff options
Diffstat (limited to 'fortran/test/tH5F.f90')
| -rw-r--r-- | fortran/test/tH5F.f90 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90 index d1e0064..46832bb 100644 --- a/fortran/test/tH5F.f90 +++ b/fortran/test/tH5F.f90 @@ -678,8 +678,10 @@ write(*,*) "File should be closed at this point, error" endif - if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error) + if(cleanup) then + CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error) CALL check("h5_cleanup_f", error, total_error) + endif deallocate(obj_ids) RETURN |