summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2016-06-16 18:00:13 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2016-06-16 18:00:13 (GMT)
commitbdcb43071a09c2b54c1e73c66218a0d5d626b560 (patch)
tree5c93017146afa5b0c10311bdfc8f463c51f21d99 /fortran/src
parenta82edeb89b88e359cef1f2e0c1a8bd6812ca63b6 (diff)
downloadhdf5-bdcb43071a09c2b54c1e73c66218a0d5d626b560.zip
hdf5-bdcb43071a09c2b54c1e73c66218a0d5d626b560.tar.gz
hdf5-bdcb43071a09c2b54c1e73c66218a0d5d626b560.tar.bz2
[svn-r30087] fixed issue of CHARACTER argument of c_loc having a length of 1
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Pff.F904
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90
index a49de81..c42dde2 100644
--- a/fortran/src/H5Pff.F90
+++ b/fortran/src/H5Pff.F90
@@ -6264,7 +6264,7 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
INTEGER, INTENT(OUT) :: hdferr ! Error code
TYPE(C_PTR) :: f_ptr ! C address
- f_ptr = C_LOC(fillvalue)
+ f_ptr = C_LOC(fillvalue(1:1))
hdferr = h5pset_fill_value_c(prp_id, type_id, f_ptr)
END SUBROUTINE h5pset_fill_value_char
@@ -6286,7 +6286,7 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
! To resolve Issue #1 outlined in the preamble of this file we
! need to pack the character string into an array.
- chr_len = LEN(fillvalue)
+ chr_len = LEN(fillvalue(1:1))
ALLOCATE(chr(1:chr_len), STAT=hdferr)
IF (hdferr .NE. 0) THEN
hdferr = -1