diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-05-14 19:13:32 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-05-14 19:13:32 (GMT) |
| commit | 45a23603ed2ca2bce31be75d87ea094f0b5fe2e4 (patch) | |
| tree | a0fb065935764c5e849c5ac91e994c908509d5bb | |
| parent | 33483eafdc6e3831a406e933e0cd1dbf1f7c73aa (diff) | |
| download | hdf5-45a23603ed2ca2bce31be75d87ea094f0b5fe2e4.zip hdf5-45a23603ed2ca2bce31be75d87ea094f0b5fe2e4.tar.gz hdf5-45a23603ed2ca2bce31be75d87ea094f0b5fe2e4.tar.bz2 | |
[svn-r14997] Purpose:
Cleaned up get_name_by_idx_f test that uses the newest API.
| -rw-r--r-- | fortran/test/tH5A_1_8.f90 | 34 |
1 files changed, 1 insertions, 33 deletions
diff --git a/fortran/test/tH5A_1_8.f90 b/fortran/test/tH5A_1_8.f90 index e04504f..e8278f3 100644 --- a/fortran/test/tH5A_1_8.f90 +++ b/fortran/test/tH5A_1_8.f90 @@ -1213,45 +1213,13 @@ SUBROUTINE attr_info_by_idx_check(obj_id, attrname, n, use_index, total_error ) CALL h5aget_name_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, & n, tmpname, error, NAME_BUF_SIZE) CALL check("h5aget_name_by_idx_f",error,total_error) - CALL VERIFY("h5aget_name_by_idx_f", NAME_BUF_SIZE, 7, error) + CALL VERIFY("h5aget_name_by_idx_f", INT(NAME_BUF_SIZE), 7, error) IF(attrname.NE.tmpname)THEN error = -1 ENDIF CALL VERIFY("h5aget_name_by_idx_f",error,0,total_error) - ! Try with a larger buffer size then needed - NAME_BUF_SIZE = 17 - CALL h5aget_name_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, & - n, tmpname, error, NAME_BUF_SIZE ) - CALL check("h5aget_name_by_idx_f",error,total_error) - CALL VERIFY("h5aget_name_by_idx_f", NAME_BUF_SIZE, 7, error) - - IF(attrname(1:NAME_BUF_SIZE).NE.tmpname(1:NAME_BUF_SIZE))THEN - error = -1 - ENDIF - CALL VERIFY("h5aget_name_by_idx_f",error,0,total_error) - - ! Try with a smaller buffer size then needed - NAME_BUF_SIZE = 5 - CALL h5aget_name_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, & - n, tmpname, error, NAME_BUF_SIZE) - CALL check("h5aget_name_by_idx_f",error,total_error) - CALL VERIFY("h5aget_name_by_idx_f", NAME_BUF_SIZE, 7, error) - - IF(attrname(1:5).NE.tmpname(1:5))THEN - error = -1 - ENDIF - CALL VERIFY("h5aget_name_by_idx_f",error,0,total_error) - - ! Try with a zero buffer size - NAME_BUF_SIZE = 0 - CALL h5aget_name_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, & - n, tmpname, error, NAME_BUF_SIZE) - CALL check("h5aget_name_by_idx_f",error,total_error) - CALL VERIFY("h5aget_name_by_idx_f", NAME_BUF_SIZE, 7, error) - - ! /* Don't test "native" order if there is no creation order index, since ! * there's not a good way to easily predict the attribute's order in the name ! * index. |