From 45a23603ed2ca2bce31be75d87ea094f0b5fe2e4 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Wed, 14 May 2008 14:13:32 -0500
Subject: [svn-r14997] Purpose: Cleaned up get_name_by_idx_f test that uses the
 newest API.

---
 fortran/test/tH5A_1_8.f90 | 34 +---------------------------------
 1 file changed, 1 insertion(+), 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.
-- 
cgit v0.12