diff options
author | Dana Robinson <derobins@hdfgroup.org> | 2020-08-16 22:00:40 (GMT) |
---|---|---|
committer | Dana Robinson <derobins@hdfgroup.org> | 2020-08-16 22:00:40 (GMT) |
commit | f2044e0807f57416932afd5bc800e9e32042c0c8 (patch) | |
tree | 5446835925171ec672789edffd2e13e3821bbc18 /fortran/src/H5Off.F90 | |
parent | 4312f5ea1a611cef01e9ecfb57d7c287c9549249 (diff) | |
download | hdf5-f2044e0807f57416932afd5bc800e9e32042c0c8.zip hdf5-f2044e0807f57416932afd5bc800e9e32042c0c8.tar.gz hdf5-f2044e0807f57416932afd5bc800e9e32042c0c8.tar.bz2 |
Brings fortran changes from develop
Diffstat (limited to 'fortran/src/H5Off.F90')
-rw-r--r-- | fortran/src/H5Off.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/src/H5Off.F90 b/fortran/src/H5Off.F90 index b6b0dbf..46a9d74 100644 --- a/fortran/src/H5Off.F90 +++ b/fortran/src/H5Off.F90 @@ -966,7 +966,7 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name INTEGER(SIZE_T) , INTENT(IN) :: namelen INTEGER(HID_T) , INTENT(IN) :: lapl_id_default - TYPE(C_PTR),VALUE :: object_info + TYPE(C_PTR), VALUE :: object_info INTEGER , INTENT(IN) :: fields END FUNCTION h5oget_info_by_name_c END INTERFACE @@ -1010,7 +1010,7 @@ CONTAINS ! Fortran2003 Interface: SUBROUTINE h5oget_info_f(object_id, object_info, hdferr, fields) - USE, INTRINSIC :: ISO_C_BINDING + USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: object_id TYPE(h5o_info_t), INTENT(OUT), TARGET :: object_info @@ -1072,7 +1072,7 @@ CONTAINS SUBROUTINE h5oget_info_by_idx_f(loc_id, group_name, index_field, order, n, & object_info, hdferr, lapl_id, fields) - USE, INTRINSIC :: ISO_C_BINDING + USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR IMPLICIT NONE INTEGER(HID_T) , INTENT(IN) :: loc_id CHARACTER(LEN=*), INTENT(IN) :: group_name |