diff options
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/test/tH5A_1_8.f90 | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/fortran/test/tH5A_1_8.f90 b/fortran/test/tH5A_1_8.f90 index be78d9e..3a969d3 100644 --- a/fortran/test/tH5A_1_8.f90 +++ b/fortran/test/tH5A_1_8.f90 @@ -25,7 +25,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error) IMPLICIT NONE LOGICAL, INTENT(IN) :: cleanup - INTEGER, INTENT(OUT) :: total_error + INTEGER, INTENT(INOUT) :: total_error CHARACTER(LEN=5), PARAMETER :: filename = "atest" !File name CHARACTER(LEN=9), PARAMETER :: dsetname = "atestdset" !Dataset name @@ -126,11 +126,11 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error) !!$ CALL test_attr_corder_create_reopen(my_fcpl, my_fapl) !!$ CALL test_attr_corder_transition(my_fcpl, my_fapl) !!$ CALL test_attr_corder_delete(my_fcpl, my_fapl) - CALL test_attr_info_by_idx(new_format, my_fcpl, my_fapl, total_error) - CALL test_attr_delete_by_idx(new_format, my_fcpl, my_fapl, total_error) -!!$ CALL test_attr_iterate2(new_format, my_fcpl, my_fapl) -!!$ CALL test_attr_open_by_idx(new_format, my_fcpl, my_fapl) -!!$ CALL test_attr_open_by_name(new_format, my_fcpl, my_fapl) + CALL test_attr_info_by_idx(new_format(i), my_fcpl, my_fapl, total_error) + CALL test_attr_delete_by_idx(new_format(i), my_fcpl, my_fapl, total_error) +!!$ CALL test_attr_iterate2(new_format(i), my_fcpl, my_fapl) +!!$ CALL test_attr_open_by_idx(new_format(i), my_fcpl, my_fapl) +!!$ CALL test_attr_open_by_name(new_format(i), my_fcpl, my_fapl) CALL test_attr_create_by_name(new_format(i), my_fcpl, my_fapl, total_error) ! /* More complex tests with both "new format" and "shared" attributes */ IF( use_shared(j) ) THEN @@ -145,13 +145,13 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error) !!$ CALL test_attr_big(fcpl, my_fapl) !!$ CALL test_attr_null_space(fcpl, my_fapl) !!$ CALL test_attr_deprec(fcpl, my_fapl) -!!$ CALL test_attr_many(new_format, fcpl, my_fapl) -!!$ CALL test_attr_info_by_idx(new_format, fcpl, my_fapl) -!!$ CALL test_attr_delete_by_idx(new_format, fcpl, my_fapl) -!!$ CALL test_attr_iterate2(new_format, fcpl, my_fapl) -!!$ CALL test_attr_open_by_idx(new_format, fcpl, my_fapl) -!!$ CALL test_attr_open_by_name(new_format, fcpl, my_fapl) -!!$ CALL test_attr_create_by_name(new_format, fcpl, my_fapl) +!!$ CALL test_attr_many(new_format(i), fcpl, my_fapl) +!!$ CALL test_attr_info_by_idx(new_format(i), fcpl, my_fapl) +!!$ CALL test_attr_delete_by_idx(new_format(i), fcpl, my_fapl) +!!$ CALL test_attr_iterate2(new_format(i), fcpl, my_fapl) +!!$ CALL test_attr_open_by_idx(new_format(i), fcpl, my_fapl) +!!$ CALL test_attr_open_by_name(new_format(i), fcpl, my_fapl) +!!$ CALL test_attr_create_by_name(new_format(i), fcpl, my_fapl) !!$ CALL test_attr_bug1(fcpl, my_fapl) END IF @@ -732,7 +732,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error) CALL check("h5aclose_f",error,total_error) ! /* Verify information for NEW attribute */ - CALL attr_info_by_idx_check(my_dataset, attrname, INT(u,HSIZE_T), use_index, total_error) + CALL attr_info_by_idx_check(my_dataset, attrname, INT(u,HSIZE_T), use_index(i), total_error) ! CALL check("FAILED IN attr_info_by_idx_check",total_error) ENDDO @@ -795,7 +795,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error) !!$ } /* end if */ !!$ !!$ /* Verify information for new attribute */ -!!$ ret = attr_info_by_idx_check(my_dataset, attrname, (hsize_t)u, use_index); +!!$ ret = attr_info_by_idx_check(my_dataset, attrname, (hsize_t)u, use_index(i)); !!$ CHECK(ret, FAIL, "attr_info_by_idx_check"); ENDDO @@ -812,7 +812,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error) !!$ /* Retrieve & verify # of records in the name & creation order indices */ !!$ ret = H5O_attr_dense_info_test(my_dataset, &name_count, &corder_count); !!$ CHECK(ret, FAIL, "H5O_attr_dense_info_test"); -!!$ if(use_index) +!!$ if(use_index(i)) !!$ VERIFY(name_count, corder_count, "H5O_attr_dense_info_test"); !!$ VERIFY(name_count, (max_compact * 2), "H5O_attr_dense_info_test"); !!$ } /* end if */ @@ -2897,7 +2897,7 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error) INTEGER(HID_T), INTENT(IN) :: fcpl INTEGER(HID_T), INTENT(IN) :: fapl - INTEGER, INTENT(IN) :: total_error + INTEGER, INTENT(INOUT) :: total_error CHARACTER(LEN=8) :: FileName = "tattr.h5" INTEGER(HID_T) :: fid INTEGER(HID_T) :: dcpl @@ -3166,7 +3166,7 @@ SUBROUTINE test_attr_corder_create_basic( fcpl, fapl, total_error ) INTEGER(HID_T), INTENT(IN) :: fcpl INTEGER(HID_T), INTENT(IN) :: fapl - INTEGER, INTENT(IN) :: total_error + INTEGER, INTENT(INOUT) :: total_error CHARACTER(LEN=8) :: FileName = "tattr.h5" INTEGER(HID_T) :: fid INTEGER(HID_T) :: dcpl @@ -3503,7 +3503,7 @@ SUBROUTINE test_attr_many(new_format, fcpl, fapl, total_error) LOGICAL, INTENT(IN) :: new_format INTEGER(HID_T), INTENT(IN) :: fcpl INTEGER(HID_T), INTENT(IN) :: fapl - INTEGER, INTENT(IN) :: total_error + INTEGER, INTENT(INOUT) :: total_error CHARACTER(LEN=8) :: FileName = "tattr.h5" INTEGER(HID_T) :: fid INTEGER(HID_T) :: sid |