diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-09-30 21:05:39 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-09-30 21:05:39 (GMT) |
| commit | 393100b2b64ff6180119649599926ca7f22682f8 (patch) | |
| tree | 7c806161df2df5497bca4985bfedb87b626a5f00 /fortran/test/tH5P.f90 | |
| parent | 915ed3269683d30045d4c06b85ec76c792bcf4ac (diff) | |
| download | hdf5-393100b2b64ff6180119649599926ca7f22682f8.zip hdf5-393100b2b64ff6180119649599926ca7f22682f8.tar.gz hdf5-393100b2b64ff6180119649599926ca7f22682f8.tar.bz2 | |
[svn-r15737] Description:
Changed the tests so that the *.h5 test files are removed depending on the HDF5_NOCLEANUP environment variable.
bug 696
Diffstat (limited to 'fortran/test/tH5P.f90')
| -rw-r--r-- | fortran/test/tH5P.f90 | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90 index e8e3a1d..7e6c8de 100644 --- a/fortran/test/tH5P.f90 +++ b/fortran/test/tH5P.f90 @@ -372,13 +372,26 @@ ! Close the file. ! CALL h5fclose_f(file_id, error) - CALL check("h5fclose_f", error, total_error) + CALL check("h5fclose_f", error, total_error) CALL h5pclose_f(fapl, error) - CALL check("h5pclose_f", error, total_error) + CALL check("h5pclose_f", error, total_error) CALL h5pclose_f(fapl_1, error) - CALL check("h5pclose_f", error, total_error) - if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error) - CALL check("h5_cleanup_f", error, total_error) + CALL check("h5pclose_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) + + IF(cleanup) CALL h5_cleanup_f(filename//'.h5-b', H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f(filename//'.h5-g', H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f(filename//'.h5-l', H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f(filename//'.h5-o', H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f(filename//'.h5-r', H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f(filename//'.h5-s', H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) RETURN END SUBROUTINE multi_file_test |