diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-06 18:01:59 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-06 18:01:59 (GMT) |
| commit | 0a896c59a89bce87c83255bb2ca4bda31accfd4b (patch) | |
| tree | df1d23d67b8d37da6b32383c22354099238cc1f5 /fortran/src | |
| parent | 6827c2f3b2452e592d51ca90a807d446c27d43d0 (diff) | |
| download | hdf5-0a896c59a89bce87c83255bb2ca4bda31accfd4b.zip hdf5-0a896c59a89bce87c83255bb2ca4bda31accfd4b.tar.gz hdf5-0a896c59a89bce87c83255bb2ca4bda31accfd4b.tar.bz2 | |
[svn-r14941] Maintenance: Cleaned up more test code, fixed more bugs in the test and source codes.
This check-in should address Fortran failures on liberty and smirom.
Platforms tested: kagiso with Intel, smirom with g95 -fPIC, liberty with gfortran42
Diffstat (limited to 'fortran/src')
| -rw-r--r-- | fortran/src/H5Af.c | 4 | ||||
| -rw-r--r-- | fortran/src/H5f90proto.h | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c index 3b6feb0..9818258 100644 --- a/fortran/src/H5Af.c +++ b/fortran/src/H5Af.c @@ -1652,7 +1652,7 @@ done: *---------------------------------------------------------------------------*/ int_f nh5aexists_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen, - hid_t_f *lapl_id, hid_t_f *attr_exists) + hid_t_f *lapl_id, int_f *attr_exists) { char *c_obj_name = NULL; /* Buffer to hold object name C string */ char *c_attr_name = NULL; /* Buffer to hold attribute name C string */ @@ -1669,7 +1669,7 @@ nh5aexists_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fc /* * Call H5Aexists_by_name function. */ - if((*attr_exists = (hid_t_f)H5Aexists_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*lapl_id)) < 0) + if((*attr_exists = (int_f)H5Aexists_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*lapl_id)) < 0) HGOTO_DONE(FAIL); done: diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index 03060f0..4c8aabf 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -595,7 +595,7 @@ H5_FCDLL int_f nh5acreate_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *ob hid_t_f *lapl_id, hid_t_f *attr_id ); /* MSB */ H5_FCDLL int_f nh5aexists_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_exists); /* MSB */ H5_FCDLL int_f nh5aexists_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen, - hid_t_f *lapl_id, hid_t_f *attr_exists); /* MSB */ + hid_t_f *lapl_id, int_f *attr_exists); /* MSB */ H5_FCDLL int_f nh5aopen_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id); /* MSB */ H5_FCDLL int_f nh5arename_c( hid_t_f *loc_id, |