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/tH5L_F03.F90 | |
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/tH5L_F03.F90')
-rw-r--r-- | fortran/test/tH5L_F03.F90 | 11 |
1 files changed, 9 insertions, 2 deletions
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) |