philipp/hdf5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[svn-r14959] Maintennce: IRIX compiler exposed a problem in one of the new APIs. Fixed.

Browse Source 
Platforms tested: kagiso and UCAR IRIX machine
This commit is contained in:
Elena Pourmal
2008-05-09 14:05:05 -05:00
parent a42154c441
commit 9d8bed8483
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fortran/src/H5Pf.c
View File

@@ -4422,13 +4422,16 @@ nh5pget_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
{
int ret_value = -1;
herr_t ret;
unsigned c_crt_intermed_group;
/*
* Call H5Pget_create_intermediate_group function.
*/
ret = H5Pget_create_intermediate_group((hid_t)*lcpl_id, (unsigned)*crt_intermed_group);
ret = H5Pget_create_intermediate_group((hid_t)*lcpl_id, &c_crt_intermed_group);
if (ret < 0) return ret_value; /* error occurred */
*crt_intermed_group = (int_f)c_crt_intermed_group;
ret_value = 0;
return ret_value;
}