summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-05-09 19:05:05 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-05-09 19:05:05 (GMT)
commit9d8bed8483bfc8a8fe645166df2a029554889f63 (patch)
treedfbd64abaf500daf964294719ed7ef1f2d3b50fd /fortran/src
parenta42154c44125374632b3e4a556e21ee31fb8f20f (diff)
downloadhdf5-9d8bed8483bfc8a8fe645166df2a029554889f63.zip
hdf5-9d8bed8483bfc8a8fe645166df2a029554889f63.tar.gz
hdf5-9d8bed8483bfc8a8fe645166df2a029554889f63.tar.bz2
[svn-r14959] Maintennce: IRIX compiler exposed a problem in one of the new APIs. Fixed.
Platforms tested: kagiso and UCAR IRIX machine
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Pf.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index ea7a4bb..c05e261 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -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;
}