summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-05-06 18:01:59 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-05-06 18:01:59 (GMT)
commit0a896c59a89bce87c83255bb2ca4bda31accfd4b (patch)
treedf1d23d67b8d37da6b32383c22354099238cc1f5 /fortran/src
parent6827c2f3b2452e592d51ca90a807d446c27d43d0 (diff)
downloadhdf5-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.c4
-rw-r--r--fortran/src/H5f90proto.h2
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,