summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Af.c
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2007-09-27 22:42:20 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2007-09-27 22:42:20 (GMT)
commitc63f9b42ec89ff649f4f086e2f422fa01d9967b1 (patch)
tree563d292a805c97be9136799016215ea99af39452 /fortran/src/H5Af.c
parenta9a10b0a055824f676cf426fcd928772aeaa99c8 (diff)
downloadhdf5-c63f9b42ec89ff649f4f086e2f422fa01d9967b1.zip
hdf5-c63f9b42ec89ff649f4f086e2f422fa01d9967b1.tar.gz
hdf5-c63f9b42ec89ff649f4f086e2f422fa01d9967b1.tar.bz2
[svn-r14162] Description:
Make H5Adelete versioned and switch internal library use to H5Adelete2. Add regression test for H5Adelete1 Tested on: FreeBSD/32 6.2 (duty) in debug mode FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode AIX/32 5.3 (copper) w/FORTRAN, w/parallel, in production mode Mac OS X/32 10.4.10 (amazon) in debug mode
Diffstat (limited to 'fortran/src/H5Af.c')
-rw-r--r--fortran/src/H5Af.c16
1 files changed, 9 insertions, 7 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index 1e50dc8..6b49624 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -810,7 +810,7 @@ done:
/*----------------------------------------------------------------------------
* Name: h5adelete_c
- * Purpose: Call H5Adelete to delete an attribute
+ * Purpose: Call H5Adelete2 to delete an attribute
* Inputs: obj_id - object identifier
* name - name of the attribute
* namelen - name length
@@ -822,23 +822,25 @@ done:
int_f
nh5adelete_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen)
{
- char *c_name=NULL; /* Buffer to hold C string */
- int_f ret_value=0; /* Return value */
+ char *c_name = NULL; /* Buffer to hold C string */
+ int_f ret_value = 0; /* Return value */
/*
* Convert FORTRAN name to C name
*/
- if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+ if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
HGOTO_DONE(FAIL);
/*
- * Call H5Adelete function.
+ * Call H5Adelete2 function.
*/
- if (H5Adelete((hid_t)*obj_id, c_name) < 0)
+ if(H5Adelete2((hid_t)*obj_id, ".", c_name, H5P_DEFAULT) < 0)
HGOTO_DONE(FAIL);
done:
- if(c_name) HDfree(c_name);
+ if(c_name)
+ HDfree(c_name);
+
return ret_value;
}