diff options
Diffstat (limited to 'fortran/test')
-rw-r--r-- | fortran/test/tH5D.F90 | 2 | ||||
-rw-r--r-- | fortran/test/tH5L_F03.F90 | 11 |
2 files changed, 10 insertions, 3 deletions
diff --git a/fortran/test/tH5D.F90 b/fortran/test/tH5D.F90 index 4005c78..328141d 100644 --- a/fortran/test/tH5D.F90 +++ b/fortran/test/tH5D.F90 @@ -1021,7 +1021,7 @@ CONTAINS INTEGER(SIZE_T), PARAMETER :: CHUNK1 = DIM1/2 INTEGER(HSIZE_T), DIMENSION(2) :: offset INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/DIM0,DIM1/) - INTEGER(C_INT), DIMENSION(CHUNK0,CHUNK1), TARGET :: wdata1, rdata1, wdata2, rdata2 + INTEGER, DIMENSION(CHUNK0,CHUNK1), TARGET :: wdata1, rdata1, wdata2, rdata2 INTEGER(HSIZE_T), DIMENSION(2) :: chunk = (/CHUNK0, CHUNK1/) INTEGER :: i, j, n INTEGER :: error diff --git a/fortran/test/tH5L_F03.F90 b/fortran/test/tH5L_F03.F90 index 426e005..b3fa80e 100644 --- a/fortran/test/tH5L_F03.F90 +++ b/fortran/test/tH5L_F03.F90 @@ -425,6 +425,7 @@ SUBROUTINE test_visit(cleanup, total_error) CHARACTER(LEN=MAX_CHAR_LEN) :: tmp INTEGER :: error INTEGER :: istart, iend, i, j + INTEGER :: ret_val obj_list(1) = "Dataset_zero" obj_list(2) = "Group1" @@ -519,8 +520,11 @@ SUBROUTINE test_visit(cleanup, total_error) udata%n_obj = 0 udata%name(:) = " " - CALL h5lvisit_f(fid, H5_INDEX_NAME_F, H5_ITER_INC_F, f1, f2, error) + CALL h5lvisit_f(fid, H5_INDEX_NAME_F, H5_ITER_INC_F, f1, f2, ret_val, error) CALL check("h5lvisit_f", error, total_error) + IF(ret_val.LT.0)THEN + CALL check("h5lvisit_f", -1, total_error) + ENDIF IF(udata%n_obj.NE.11)THEN CALL check("h5lvisit_f: Wrong number of objects visited", -1, total_error) @@ -545,8 +549,11 @@ SUBROUTINE test_visit(cleanup, total_error) udata%n_obj = 0 udata%name(:) = " " - CALL h5lvisit_by_name_f(fid, "/", H5_INDEX_NAME_F, H5_ITER_INC_F, f1, f2, error) + CALL h5lvisit_by_name_f(fid, "/", H5_INDEX_NAME_F, H5_ITER_INC_F, f1, f2, ret_val, error) CALL check("h5lvisit_by_name_f", error, total_error) + IF(ret_val.LT.0)THEN + CALL check("h5ovisit_f", -1, total_error) + ENDIF IF(udata%n_obj.NE.11)THEN CALL check("h5lvisit_by_name_f: Wrong number of objects visited", -1, total_error) |