diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-09-08 22:15:52 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-09-08 22:15:52 (GMT) |
| commit | 2345f901b26277f643dd91a528e4da975f4e75c1 (patch) | |
| tree | 960630c6c369895a46ace5e8bd8021b635578607 /fortran/test | |
| parent | 08e115b7d8f95551be8bede824847997d95d0cf1 (diff) | |
| download | hdf5-2345f901b26277f643dd91a528e4da975f4e75c1.zip hdf5-2345f901b26277f643dd91a528e4da975f4e75c1.tar.gz hdf5-2345f901b26277f643dd91a528e4da975f4e75c1.tar.bz2 | |
misc. fortran fixes for failing CI dailty tests (#3523)
* fixed H5Lvisit* interface
* changed integer type for direct write
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) |