diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-13 18:37:48 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-13 18:37:48 (GMT) |
commit | 4297f8cc78a7ca0f1e190e62806e9c63a945756c (patch) | |
tree | 67997c0bfb336ba65750ac9949f5a1dda678f50f /fortran/src/H5Lf.c | |
parent | ee187da419d14739a67d2550369a1ca86128f178 (diff) | |
download | hdf5-4297f8cc78a7ca0f1e190e62806e9c63a945756c.zip hdf5-4297f8cc78a7ca0f1e190e62806e9c63a945756c.tar.gz hdf5-4297f8cc78a7ca0f1e190e62806e9c63a945756c.tar.bz2 |
[svn-r14992] Maintenance: Brought changes from trunk into 1.8 branch
Platforms tested: kagiso, will do more testing later with -i8 flag.
Diffstat (limited to 'fortran/src/H5Lf.c')
-rw-r--r-- | fortran/src/H5Lf.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Lf.c b/fortran/src/H5Lf.c index b6f0a8e..ed6d2e1 100644 --- a/fortran/src/H5Lf.c +++ b/fortran/src/H5Lf.c @@ -344,7 +344,7 @@ done: * Modifications: *---------------------------------------------------------------------------*/ int_f -nh5lexists_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, hid_t_f *link_exists) +nh5lexists_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, int_f *link_exists) { char *c_name = NULL; /* Buffer to hold C string */ int_f ret_value = 0; /* Return value */ @@ -358,7 +358,7 @@ nh5lexists_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, h /* * Call H5Lexists function. */ - if((*link_exists = (hid_t_f)H5Lexists((hid_t)*loc_id, c_name, (hid_t)*lapl_id)) < 0) + if((*link_exists = (int_f)H5Lexists((hid_t)*loc_id, c_name, (hid_t)*lapl_id)) < 0) HGOTO_DONE(FAIL); done: |