summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-27 16:55:50 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-27 16:55:50 (GMT)
commitc06ae0d558457fa51abbe463351b1c9b47d30629 (patch)
tree0edf582076c7c1e3ac2ac0c3769e2c7326fe8ace /fortran
parentf15c901b8f95648603e1d10313d0b9b3b843d6b2 (diff)
downloadhdf5-c06ae0d558457fa51abbe463351b1c9b47d30629.zip
hdf5-c06ae0d558457fa51abbe463351b1c9b47d30629.tar.gz
hdf5-c06ae0d558457fa51abbe463351b1c9b47d30629.tar.bz2
[svn-r15075] Description: removed temporary files created by test programs.
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/tH5O.f908
1 files changed, 7 insertions, 1 deletions
diff --git a/fortran/test/tH5O.f90 b/fortran/test/tH5O.f90
index 7e73104..0aa4abd 100644
--- a/fortran/test/tH5O.f90
+++ b/fortran/test/tH5O.f90
@@ -19,6 +19,7 @@ SUBROUTINE test_h5o(cleanup, total_error)
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
+ INTEGER :: error
! /* Output message about test being performed */
! WRITE(*,*) "Testing Objects"
@@ -30,6 +31,11 @@ SUBROUTINE test_h5o(cleanup, total_error)
CALL test_h5o_plist(total_error) ! /* Test object creation properties */
CALL test_h5o_link(total_error) ! /* Test object link routine */
+ IF(cleanup) CALL h5_cleanup_f("TestFile", H5P_DEFAULT_F, error)
+ CALL check("h5_cleanup_f", error, total_error)
+ IF(cleanup) CALL h5_cleanup_f("test", H5P_DEFAULT_F, error)
+ CALL check("h5_cleanup_f", error, total_error)
+
END SUBROUTINE test_h5o
!/****************************************************************
@@ -53,7 +59,7 @@ SUBROUTINE test_h5o_link(total_error)
INTEGER(HID_T) :: fapl_id
INTEGER(HID_T) :: lcpl_id
INTEGER(HID_T) :: mem_space_id, file_space_id, xfer_prp
- CHARACTER(LEN=8), PARAMETER :: TEST_FILENAME = 'TestFile'
+ CHARACTER(LEN=11), PARAMETER :: TEST_FILENAME = 'TestFile.h5'
INTEGER, PARAMETER :: TEST6_DIM1 = 2, TEST6_DIM2 = 5
!EP INTEGER(HSIZE_T), DIMENSION(1:2), PARAMETER :: dims = (/TEST6_DIM1,TEST6_DIM2/)
INTEGER(HSIZE_T), DIMENSION(1:2) :: dims = (/TEST6_DIM1,TEST6_DIM2/)