diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-02-18 00:46:21 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-02-18 00:46:21 (GMT) |
commit | c3fe96625111e4141ca2f82733a22d43ef757595 (patch) | |
tree | bf49cd7e67dedf4c6499182a74ab433a98c34ab1 /hl/fortran | |
parent | dd422291e05c2e1deb2797dec6374d8cc521b0ca (diff) | |
download | hdf5-c3fe96625111e4141ca2f82733a22d43ef757595.zip hdf5-c3fe96625111e4141ca2f82733a22d43ef757595.tar.gz hdf5-c3fe96625111e4141ca2f82733a22d43ef757595.tar.bz2 |
[svn-r23291] brought r23241 into the branch.
Fix for: HDFFV-7596
H5DSget_scale returns size that includes NULL termination and H5DSget_label returns size NOT including NULL termination
Diffstat (limited to 'hl/fortran')
-rw-r--r-- | hl/fortran/src/H5DSfc.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/hl/fortran/src/H5DSfc.c b/hl/fortran/src/H5DSfc.c index 3135cfa..2e38939 100644 --- a/hl/fortran/src/H5DSfc.c +++ b/hl/fortran/src/H5DSfc.c @@ -331,12 +331,8 @@ nh5dsget_scale_name_c(hid_t_f *did, _fcd name, size_t_f *size) /* * Convert C name to FORTRAN and place it in the given buffer */ - if(size_c != 0) { - HD5packFstring(c_scale_name, _fcdtocp(name), (size_t)*size); - *size = (size_t_f)size_c-1; /* (-1) because we don't include the NULL ending in the length*/ - } else { - *size = (size_t_f)size_c; /* if NULL then no name was found */ - } + HD5packFstring(c_scale_name, _fcdtocp(name), (size_t)*size); + *size = (size_t_f)size_c; done: if(c_scale_name) HDfree(c_scale_name); |