summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-05-09 19:06:12 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-05-09 19:06:12 (GMT)
commit44b6a4de8f7304ce0081ad003753fc8b7a06e121 (patch)
treefc95f21546840f83b6e5d953f96a8ea26346bba6 /fortran/src
parentc9d5c195cdff15fd1d07b523ba0358b8dbe76c85 (diff)
downloadhdf5-44b6a4de8f7304ce0081ad003753fc8b7a06e121.zip
hdf5-44b6a4de8f7304ce0081ad003753fc8b7a06e121.tar.gz
hdf5-44b6a4de8f7304ce0081ad003753fc8b7a06e121.tar.bz2
[svn-r14960] Maintenance: 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;
}