summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5T.f90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-09-30 21:05:39 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-09-30 21:05:39 (GMT)
commit393100b2b64ff6180119649599926ca7f22682f8 (patch)
tree7c806161df2df5497bca4985bfedb87b626a5f00 /fortran/test/tH5T.f90
parent915ed3269683d30045d4c06b85ec76c792bcf4ac (diff)
downloadhdf5-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/tH5T.f90')
-rw-r--r--fortran/test/tH5T.f9018
1 files changed, 13 insertions, 5 deletions
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90
index 0c86b6c..7c81d6d 100644
--- a/fortran/test/tH5T.f90
+++ b/fortran/test/tH5T.f90
@@ -800,7 +800,7 @@
SUBROUTINE enumtest(cleanup, total_error)
USE HDF5
- IMPLICIT none
+ IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
@@ -871,7 +871,7 @@
CALL check("H5Tget_order_f",error, total_error)
CALL VERIFY("H5Tget_native_type_f",order1, order2, total_error)
- ! this test depends on whether -i8 was specified needs to account for that FIX -scot-
+ ! this test depends on whether -i8 was specified
!!$ CALL H5Tget_size_f(native_type, type_size1, error)
!!$ CALL check("H5Tget_size_f",error, total_error)
@@ -909,11 +909,15 @@
ENDIF
CALL h5tclose_f(dtype_id,error)
- CALL check("h5tclose_f", error, total_error)
+ CALL check("h5tclose_f", error, total_error)
CALL h5fclose_f(file_id,error)
- CALL check("h5fclose_f", error, total_error)
+ CALL check("h5fclose_f", error, total_error)
+
+ IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
+ CALL check("h5_cleanup_f", error, total_error)
+
RETURN
- END SUBROUTINE enumtest
+ END SUBROUTINE enumtest
!/*-------------------------------------------------------------------------
! * Function: test_derived_flt
@@ -1114,4 +1118,8 @@ SUBROUTINE test_derived_flt(cleanup, total_error)
CALL h5fclose_f(file,error)
CALL check("h5fclose_f", error, total_error)
+
+ IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
+ CALL check("h5_cleanup_f", error, total_error)
+
END SUBROUTINE test_derived_flt