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/src/H5Pff.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/src/H5Pff.F90')
-rw-r--r-- | fortran/src/H5Pff.F90 | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index 87da5d5..1b55fe9 100644 --- a/fortran/src/H5Pff.F90 +++ b/fortran/src/H5Pff.F90 @@ -6363,7 +6363,7 @@ END SUBROUTINE h5pget_virtual_dsetname_f SUBROUTINE H5Pset_file_space_strategy_f(plist_id, strategy, persist, threshold, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: plist_id - INTEGER(C_INT) , INTENT(IN) :: strategy + INTEGER , INTENT(IN) :: strategy LOGICAL , INTENT(IN) :: persist INTEGER(HSIZE_T), INTENT(IN) :: threshold INTEGER , INTENT(OUT) :: hdferr @@ -6385,7 +6385,7 @@ END SUBROUTINE h5pget_virtual_dsetname_f ! Transfer value of Fortran LOGICAL to C C_BOOL type c_persist = persist - hdferr = INT( H5Pset_file_space_strategy(plist_id, strategy, c_persist, threshold) ) + hdferr = INT( H5Pset_file_space_strategy(plist_id, INT(strategy, C_INT), c_persist, threshold) ) END SUBROUTINE H5Pset_file_space_strategy_f @@ -6405,12 +6405,13 @@ END SUBROUTINE h5pget_virtual_dsetname_f SUBROUTINE h5pget_file_space_strategy_f(plist_id, strategy, persist, threshold, hdferr) IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: plist_id - INTEGER(C_INT) , INTENT(OUT) :: strategy + INTEGER , INTENT(OUT) :: strategy LOGICAL , INTENT(OUT) :: persist INTEGER(HSIZE_T), INTENT(OUT) :: threshold INTEGER , INTENT(OUT) :: hdferr LOGICAL(C_BOOL) :: c_persist + INTEGER(C_INT) :: c_strategy INTERFACE INTEGER(C_INT) FUNCTION H5Pget_file_space_strategy(plist_id, strategy, persist, threshold) & @@ -6424,11 +6425,16 @@ END SUBROUTINE h5pget_virtual_dsetname_f END FUNCTION H5Pget_file_space_strategy END INTERFACE - hdferr = INT( H5Pget_file_space_strategy(plist_id, strategy, c_persist, threshold) ) + + hdferr = INT( H5Pget_file_space_strategy(plist_id, c_strategy, c_persist, threshold) ) ! Transfer value of Fortran LOGICAL and C C_BOOL type persist = .FALSE. - IF(hdferr .GE. 0) persist = c_persist + strategy = -1 + IF(hdferr .GE. 0)THEN + persist = c_persist + strategy = INT(c_strategy) + ENDIF END SUBROUTINE h5pget_file_space_strategy_f |