summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2007-08-30 13:57:40 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2007-08-30 13:57:40 (GMT)
commit1374654210854d005546459e48c482c5ea01cba2 (patch)
tree37548ca4a7c46010e6375457123a07acfc0bfa45
parentc50c23d387121f2acaf364fa3c1f5d407c4ffb43 (diff)
downloadhdf5-1374654210854d005546459e48c482c5ea01cba2.zip
hdf5-1374654210854d005546459e48c482c5ea01cba2.tar.gz
hdf5-1374654210854d005546459e48c482c5ea01cba2.tar.bz2
[svn-r14130] Description:
Correct typo in FORTRAN wrapper for retrieving the comment for an object Tested on: FreeBSD/64 6.2 (liberty)
-rw-r--r--fortran/src/H5Gf.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
index e405944..1543fd6 100644
--- a/fortran/src/H5Gf.c
+++ b/fortran/src/H5Gf.c
@@ -581,7 +581,7 @@ DONE:
int_f
nh5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment,
- int_f*commentlen)
+ int_f *commentlen)
{
char *c_name = NULL, *c_comment = NULL;
int ret_value = -1;
@@ -589,7 +589,7 @@ nh5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment,
/*
* Convert Fortran name to C name
*/
- if(NULL == (c_name = (char *)HD5f2cstring(name, c_namelen)))
+ if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
if(NULL == (c_comment = (char *)HD5f2cstring(comment, (size_t)*commentlen)))
goto DONE;