diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2024-03-08 18:57:05 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2024-03-08 18:57:05 (GMT) |
commit | f22f538ab7fd41a1ea27a78995afb8ebb7035d4e (patch) | |
tree | f42ee09ae95582ae69fb52f38446af535f8225d1 /fortran/src/H5Eff.F90 | |
parent | 7de7c25646ffe00c9c91ad4bebbc55c91b4c197f (diff) | |
download | hdf5-f22f538ab7fd41a1ea27a78995afb8ebb7035d4e.zip hdf5-f22f538ab7fd41a1ea27a78995afb8ebb7035d4e.tar.gz hdf5-f22f538ab7fd41a1ea27a78995afb8ebb7035d4e.tar.bz2 |
fixes compilation failures due to H5E additions (#4090)
Diffstat (limited to 'fortran/src/H5Eff.F90')
-rw-r--r-- | fortran/src/H5Eff.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5Eff.F90 b/fortran/src/H5Eff.F90 index a95028f..9ea2807 100644 --- a/fortran/src/H5Eff.F90 +++ b/fortran/src/H5Eff.F90 @@ -712,7 +712,7 @@ CONTAINS END FUNCTION H5Ewalk END INTERFACE - hdferr = INT(H5Ewalk(err_stack, direction, op, op_data)) + hdferr = INT(H5Ewalk(err_stack, INT(direction, C_INT), op, op_data)) END SUBROUTINE h5ewalk_f |