diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-06-24 00:59:07 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-06-24 00:59:07 (GMT) |
| commit | d6ee2feb44c468c4e7c28b8e55fe2044fa8b693f (patch) | |
| tree | 0cf9f4147cc078259ef3ba93fdc51ede9ea0e7a8 /fortran | |
| parent | 0e907c2d10514a88d3e807237085a3f0bcd68f46 (diff) | |
| download | hdf5-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')
| -rw-r--r-- | fortran/src/H5Pf.c | 2 |
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: |