diff options
| author | Jacob Gruber <gruber1@hdfgroup.org> | 2012-06-25 18:53:08 (GMT) |
|---|---|---|
| committer | Jacob Gruber <gruber1@hdfgroup.org> | 2012-06-25 18:53:08 (GMT) |
| commit | cba54019b637427cd3bcaca6d3fb1a22c4c69890 (patch) | |
| tree | 62a70c2332dbe6c4cfabda914dc628c45b3d4a3a /fortran/test/tH5T.f90 | |
| parent | 6321d6f37b9e6cfa8691d6d1f65dc96a098edb18 (diff) | |
| parent | 02a0bd53e89c79508899ef28bfb7f038a1612aa7 (diff) | |
| download | hdf5-cba54019b637427cd3bcaca6d3fb1a22c4c69890.zip hdf5-cba54019b637427cd3bcaca6d3fb1a22c4c69890.tar.gz hdf5-cba54019b637427cd3bcaca6d3fb1a22c4c69890.tar.bz2 | |
[svn-r22489] Merged with revision 22488. Fixed a typo.
Diffstat (limited to 'fortran/test/tH5T.f90')
| -rw-r--r-- | fortran/test/tH5T.f90 | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90 index 6af1ba6..9605c45 100644 --- a/fortran/test/tH5T.f90 +++ b/fortran/test/tH5T.f90 @@ -108,6 +108,51 @@ INTEGER(HID_T) :: decoded_sid1 INTEGER(HID_T) :: decoded_tid1 + INTEGER(HID_T) :: fixed_str1, fixed_str2 + LOGICAL :: are_equal + INTEGER(SIZE_T), PARAMETER :: str_size = 10 + INTEGER(SIZE_T) :: query_size + + ! Test h5tcreate_f with H5T_STRING_F option: + ! Create fixed-length string in two ways and make sure they are the same + + CALL h5tcopy_f(H5T_FORTRAN_S1, fixed_str1, error) + CALL check("h5tcopy_f", error, total_error) + CALL h5tset_size_f(fixed_str1, str_size, error) + CALL check("h5tset_size_f", error, total_error) + CALL h5tset_strpad_f(fixed_str1, H5T_STR_NULLTERM_F, error) + CALL check("h5tset_strpad_f", error, total_error) + + CALL h5tcreate_f(H5T_STRING_F, str_size, fixed_str2, error) + CALL check("h5tcreate_f", error, total_error) + CALL h5tset_strpad_f(fixed_str2, H5T_STR_NULLTERM_F, error) + CALL check("h5tset_strpad_f", error, total_error) + + CALL h5tequal_f(fixed_str1, fixed_str2, are_equal, error) + IF(.NOT.are_equal)THEN + CALL check("h5tcreate_f", -1, total_error) + ENDIF + + CALL h5tget_size_f(fixed_str1, query_size, error) + CALL check("h5tget_size_f", error, total_error) + + IF(query_size.NE.str_size)THEN + CALL check("h5tget_size_f", -1, total_error) + ENDIF + + CALL h5tget_size_f(fixed_str2, query_size, error) + CALL check("h5tget_size_f", error, total_error) + + IF(query_size.NE.str_size)THEN + CALL check("h5tget_size_f", -1, total_error) + ENDIF + + CALL h5tclose_f(fixed_str1,error) + CALL check("h5tclose_f", error, total_error) + + CALL h5tclose_f(fixed_str2,error) + CALL check("h5tclose_f", error, total_error) + data_dims(1) = dimsize ! ! Initialize data buffer. |