From 44b6a4de8f7304ce0081ad003753fc8b7a06e121 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Fri, 9 May 2008 14:06:12 -0500 Subject: [svn-r14960] Maintenance: IRIX compiler exposed a problem in one of the new APIs. Fixed. Platforms tested: kagiso and UCAR IRIX machine. --- fortran/src/H5Pf.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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; } -- cgit v0.12