diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-10-01 00:41:00 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-10-01 00:41:00 (GMT) |
| commit | 2041f537e60c56ac9111229d50aacba25062603e (patch) | |
| tree | d40fc1852099bf1a886d89fed9a4fd6029ea9040 /fortran/test/tH5Sselect.f90 | |
| parent | cdb4e39a1390c666cb634a17b004abe9a492b0c2 (diff) | |
| download | hdf5-2041f537e60c56ac9111229d50aacba25062603e.zip hdf5-2041f537e60c56ac9111229d50aacba25062603e.tar.gz hdf5-2041f537e60c56ac9111229d50aacba25062603e.tar.bz2 | |
[svn-r15742] Maintenance: Merged new Fortran Features and tests from trunk into hdf5_1_8 branch
(used svn merge -r 14941:15740 http://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
command).
Diffstat (limited to 'fortran/test/tH5Sselect.f90')
| -rw-r--r-- | fortran/test/tH5Sselect.f90 | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90 index 19364df..400906a 100644 --- a/fortran/test/tH5Sselect.f90 +++ b/fortran/test/tH5Sselect.f90 @@ -1062,9 +1062,15 @@ SUBROUTINE test_select_point(cleanup, total_error) INTEGER :: i,j; !/* Counters */ ! struct pnt_iter pi; /* Custom Pointer iterator struct */ INTEGER :: error !/* Generic return value */ - CHARACTER(LEN=12) :: filename = 'h5s_hyper.h5' + CHARACTER(LEN=9) :: filename = 'h5s_hyper' + CHARACTER(LEN=80) :: fix_filename CHARACTER(LEN=1), DIMENSION(1:SPACE2_DIM1,1:SPACE2_DIM2) :: wbuf, rbuf - + + CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error) + IF (error .NE. 0) THEN + WRITE(*,*) "Cannot modify filename" + STOP + ENDIF xfer_plist = H5P_DEFAULT_F ! MESSAGE(5, ("Testing Element Selection Functions\n")); @@ -1085,7 +1091,7 @@ SUBROUTINE test_select_point(cleanup, total_error) !!$ *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j); !/* Create file */ - CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, fid1, error) + CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, fid1, error) CALL check("h5fcreate_f", error, total_error) !/* Create dataspace for dataset */ @@ -1326,6 +1332,10 @@ SUBROUTINE test_select_point(cleanup, total_error) CALL h5fclose_f(fid1, 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_select_point |