diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-09-22 16:23:45 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-09-22 16:23:45 (GMT) |
commit | a0c74196f0d0ba3c81c91024438b7a91d757fe4e (patch) | |
tree | b9e3a8416c76c72a0ea62fe3cce5cc49f5fd449d /fortran/src | |
parent | b2cb046d514861c54bd33a1ac85aa67ded3e240d (diff) | |
download | hdf5-a0c74196f0d0ba3c81c91024438b7a91d757fe4e.zip hdf5-a0c74196f0d0ba3c81c91024438b7a91d757fe4e.tar.gz hdf5-a0c74196f0d0ba3c81c91024438b7a91d757fe4e.tar.bz2 |
Fix for:
HDFFV-9973 Fortran library fails to compile and fails tests with NAG compiler
HDFFV-9980 Fix segfaults for F03 tests in 1.8 branch
Diffstat (limited to 'fortran/src')
-rw-r--r-- | fortran/src/H5Pff_F03.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Pff_F03.f90 b/fortran/src/H5Pff_F03.f90 index 01d1d98..e35073d 100644 --- a/fortran/src/H5Pff_F03.f90 +++ b/fortran/src/H5Pff_F03.f90 @@ -471,7 +471,7 @@ CONTAINS !! SUBROUTINE h5pget_fill_value_f(prp_id, type_id, fillvalue, hdferr) !! INTEGER(HID_T), INTENT(IN) :: prp_id !! INTEGER(HID_T), INTENT(IN) :: type_id -!! TYPE(C_PTR) , INTENT(OUT) :: fillvalue +!! TYPE(C_PTR) :: fillvalue !! INTEGER , INTENT(OUT) :: hdferr !***** @@ -482,7 +482,7 @@ CONTAINS INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of ! of fillvalue datatype ! (in memory) - TYPE(C_PTR), INTENT(OUT) :: fillvalue ! Fillvalue + TYPE(C_PTR) :: fillvalue ! Fillvalue INTEGER, INTENT(OUT) :: hdferr ! Error code hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue) |