diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-09-27 19:43:48 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-09-27 19:43:48 (GMT) |
commit | 0878e52087a3d782ced8200a2e0091d853e50026 (patch) | |
tree | e27198b9e866b89c4d80bbc837a45406c6e2c8d1 /fortran/test/tH5T_F03.f90 | |
parent | 393852a414d631e70191d1a9178db2ddbbb76d1e (diff) | |
download | hdf5-0878e52087a3d782ced8200a2e0091d853e50026.zip hdf5-0878e52087a3d782ced8200a2e0091d853e50026.tar.gz hdf5-0878e52087a3d782ced8200a2e0091d853e50026.tar.bz2 |
[svn-r22827] HDFFV-8007: Add missing H5O Fortran functions.
Tested: jam(gnu,intel)
Diffstat (limited to 'fortran/test/tH5T_F03.f90')
-rw-r--r-- | fortran/test/tH5T_F03.f90 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fortran/test/tH5T_F03.f90 b/fortran/test/tH5T_F03.f90 index 7c99856..da35696 100644 --- a/fortran/test/tH5T_F03.f90 +++ b/fortran/test/tH5T_F03.f90 @@ -103,7 +103,7 @@ SUBROUTINE test_array_compound_atomic(total_error) ! Create file CALL h5fcreate_f(FILENAME,H5F_ACC_TRUNC_F,fid1,error) - CALL check("h5fcreate_f", error, total_error) + CALL check("h5fcreate_f", error, total_error) ! Create dataspace for datasets CALL h5screate_simple_f(SPACE1_RANK, sdims1, sid1, error) @@ -1988,6 +1988,7 @@ SUBROUTINE t_regref(total_error) TYPE(C_PTR) :: f_ptr CHARACTER(LEN=ds2dim0) :: chrvar CHARACTER(LEN=20), DIMENSION(1:2) :: chrref_correct + TYPE(h5o_info_t) :: oinfo ! Object info struct chrvar = "The quick brown " READ(chrvar,'(16A1)') wdata2(1:16,1) @@ -2097,7 +2098,7 @@ SUBROUTINE t_regref(total_error) f_ptr = C_LOC(rdata(i)) CALL H5Rdereference_f(dset, H5R_DATASET_REGION_F, f_ptr, dset2, error) CALL check("H5Rdereference_f",error, total_error) - + CALL H5Rget_region_f(dset, f_ptr, space, error) CALL check("H5Rget_region_f",error, total_error) |