diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-09 19:05:05 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-09 19:05:05 (GMT) |
| commit | 9d8bed8483bfc8a8fe645166df2a029554889f63 (patch) | |
| tree | dfbd64abaf500daf964294719ed7ef1f2d3b50fd /fortran | |
| parent | a42154c44125374632b3e4a556e21ee31fb8f20f (diff) | |
| download | hdf5-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')
| -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; } |