summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-14 19:13:32 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-14 19:13:32 (GMT)
commit45a23603ed2ca2bce31be75d87ea094f0b5fe2e4 (patch)
treea0fb065935764c5e849c5ac91e994c908509d5bb /fortran
parent33483eafdc6e3831a406e933e0cd1dbf1f7c73aa (diff)
downloadhdf5-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.
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/tH5A_1_8.f9034
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.