summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Pf.c
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2011-06-24 00:59:07 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2011-06-24 00:59:07 (GMT)
commitd6ee2feb44c468c4e7c28b8e55fe2044fa8b693f (patch)
tree0cf9f4147cc078259ef3ba93fdc51ede9ea0e7a8 /fortran/src/H5Pf.c
parent0e907c2d10514a88d3e807237085a3f0bcd68f46 (diff)
downloadhdf5-d6ee2feb44c468c4e7c28b8e55fe2044fa8b693f.zip
hdf5-d6ee2feb44c468c4e7c28b8e55fe2044fa8b693f.tar.gz
hdf5-d6ee2feb44c468c4e7c28b8e55fe2044fa8b693f.tar.bz2
[svn-r21028] Description:
Changed the length of the fortran string passed to HD5packFstring in the function nh5pget_external_c. The 3rd argument should be the fortran length of the string, not the C length of the string (which includes the null). Tested: jam (intel and gnu), also checked the example h5ex_d_extern.f90 which detected the problem on Amazon c2 machine (reported by Larry).
Diffstat (limited to 'fortran/src/H5Pf.c')
-rw-r--r--fortran/src/H5Pf.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index 29ba593..cf5eb7d 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -1719,7 +1719,7 @@ nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f* name_size, _fcd name,
* from the function then we need to give HD5packFstring the fortran buffer size so
* that it fills the remaining unused characters with blanks. MSB
*/
- HD5packFstring(c_name, _fcdtocp(name), c_namelen+1);
+ HD5packFstring(c_name, _fcdtocp(name), c_namelen);
ret_value = 0;
DONE: