mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-30 15:32:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

addresses gfortran issue https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109861 (#2957)

Browse Source
This commit is contained in:
Scot Breitenfeld 2023-05-15 13:29:51 -05:00 committed by GitHub
parent 977884a575
commit 20e72f98b2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/src/H5Aff.F90
View File

@ -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

16
fortran/src/H5Pff.F90
View File

@ -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