diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-05-15 18:29:51 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-05-15 18:29:51 (GMT) |
| commit | 20e72f98b2063aa349cdec8b56ca6e4ab54a15cc (patch) | |
| tree | cc6aa59e801c7e2e51cf25b59854e5c6d8a2e8a1 | |
| parent | 977884a575d9c7624dc27cd94f3d740b0a00bfde (diff) | |
| download | hdf5-20e72f98b2063aa349cdec8b56ca6e4ab54a15cc.zip hdf5-20e72f98b2063aa349cdec8b56ca6e4ab54a15cc.tar.gz hdf5-20e72f98b2063aa349cdec8b56ca6e4ab54a15cc.tar.bz2 | |
addresses gfortran issue https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109861 (#2957)
| -rw-r--r-- | fortran/src/H5Aff.F90 | 2 | ||||
| -rw-r--r-- | fortran/src/H5Pff.F90 | 16 |
2 files changed, 9 insertions, 9 deletions
diff --git a/fortran/src/H5Aff.F90 b/fortran/src/H5Aff.F90 index 2f1e6d0..fab86bd 100644 --- a/fortran/src/H5Aff.F90 +++ b/fortran/src/H5Aff.F90 @@ -2086,7 +2086,7 @@ CONTAINS IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: mem_type_id - TYPE(C_PTR) , INTENT(OUT) :: buf + TYPE(C_PTR) , INTENT(INOUT) :: buf INTEGER(HID_T), INTENT(IN) :: es_id INTEGER , INTENT(OUT) :: hdferr TYPE(C_PTR), OPTIONAL :: file diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index 49917dd..098a6c3 100644 --- a/fortran/src/H5Pff.F90 +++ b/fortran/src/H5Pff.F90 @@ -4825,7 +4825,7 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name - TYPE(C_PTR), INTENT(OUT) :: value + TYPE(C_PTR), INTENT(INOUT) :: value INTEGER, INTENT(OUT) :: hdferr INTEGER :: name_len @@ -5090,19 +5090,19 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) !! SUBROUTINE h5pget_file_image_f(fapl_id, buf_ptr, buf_len_ptr, hdferr) IMPLICIT NONE - INTEGER(HID_T) , INTENT(IN) :: fapl_id - TYPE(C_PTR) , INTENT(OUT), DIMENSION(*) :: buf_ptr - INTEGER(SIZE_T), INTENT(OUT) :: buf_len_ptr - INTEGER , INTENT(OUT) :: hdferr + INTEGER(HID_T) , INTENT(IN) :: fapl_id + TYPE(C_PTR) , INTENT(INOUT), DIMENSION(*) :: buf_ptr + INTEGER(SIZE_T), INTENT(OUT) :: buf_len_ptr + INTEGER , INTENT(OUT) :: hdferr INTERFACE INTEGER FUNCTION h5pget_file_image_c(fapl_id, buf_ptr, buf_len_ptr) & BIND(C, NAME='h5pget_file_image_c') IMPORT :: c_ptr IMPORT :: HID_T, SIZE_T - INTEGER(HID_T), INTENT(IN) :: fapl_id - TYPE(C_PTR), DIMENSION(*), INTENT(OUT) :: buf_ptr - INTEGER(SIZE_T), INTENT(OUT) :: buf_len_ptr + INTEGER(HID_T) :: fapl_id + TYPE(C_PTR), DIMENSION(*) :: buf_ptr + INTEGER(SIZE_T) :: buf_len_ptr END FUNCTION h5pget_file_image_c END INTERFACE |