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/fortranlib_test.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/fortranlib_test.f90')
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index a96b269..60a026b 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -25,12 +25,16 @@ PROGRAM fortranlibtest INTEGER :: total_error = 0 INTEGER :: error INTEGER :: majnum, minnum, relnum - LOGICAL :: cleanup = .TRUE. -! LOGICAL :: cleanup = .FALSE. LOGICAL :: szip_flag INTEGER :: ret_total_error + LOGICAL :: cleanup, status + + CALL h5open_f(error) + + cleanup = .TRUE. + CALL h5_env_nocleanup_f(status) + IF(status) cleanup=.FALSE. - CALL h5open_f(error) WRITE(*,*) ' ========================== ' WRITE(*,*) ' FORTRAN tests ' WRITE(*,*) ' ========================== ' @@ -169,7 +173,6 @@ PROGRAM fortranlibtest CALL write_test_status(ret_total_error, ' External dataset test', total_error) ret_total_error = 0 - cleanup = .FALSE. CALL multi_file_test(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' Multi file driver test', total_error) |