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/tf.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/tf.f90')
| -rw-r--r-- | fortran/test/tf.f90 | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90 index d48ede1..b4956ea 100644 --- a/fortran/test/tf.f90 +++ b/fortran/test/tf.f90 @@ -272,3 +272,46 @@ SUBROUTINE h5_exit_f(status) END SUBROUTINE h5_exit_f +!---------------------------------------------------------------------- +! Name: h5_env_nocleanup_f +! +! Purpose: Uses the HDF5_NOCLEANUP environment variable in Fortran +! tests to determine if the output files should be removed +! +! Inputs: +! +! Outputs: HDF5_NOCLEANUP: .true. - don't remove test files +! .false. - remove test files +! +! Programmer: M.S. Breitenfeld +! September 30, 2008 +! +!---------------------------------------------------------------------- +SUBROUTINE h5_env_nocleanup_f(HDF5_NOCLEANUP) +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5_env_nocleanup_f +!DEC$endif + IMPLICIT NONE + LOGICAL, INTENT(OUT) :: HDF5_NOCLEANUP ! Return code + INTEGER :: status + + INTERFACE + SUBROUTINE h5_env_nocleanup_c(status) + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5_ENV_NOCLEANUP_C':: h5_env_nocleanup_c + !DEC$ ENDIF + INTEGER :: status + END SUBROUTINE h5_env_nocleanup_c + END INTERFACE + + CALL h5_env_nocleanup_c(status) + + HDF5_NOCLEANUP = .FALSE. + IF(status.EQ.1)THEN + HDF5_NOCLEANUP = .TRUE. + ENDIF + +END SUBROUTINE h5_env_nocleanup_f + |