mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r14130] Description:

Browse Source 
Correct typo in FORTRAN wrapper for retrieving the comment for an object

Tested on:
	FreeBSD/64 6.2 (liberty)
This commit is contained in:
Quincey Koziol 2007-08-30 08:57:40 -05:00
parent c50c23d387
commit 1374654210
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5Gf.c
View File

@ -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;