diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-09 19:06:12 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-09 19:06:12 (GMT) |
| commit | 44b6a4de8f7304ce0081ad003753fc8b7a06e121 (patch) | |
| tree | fc95f21546840f83b6e5d953f96a8ea26346bba6 | |
| parent | c9d5c195cdff15fd1d07b523ba0358b8dbe76c85 (diff) | |
| download | hdf5-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.
| -rw-r--r-- | fortran/src/H5Pf.c | 5 |
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; } |