diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2007-09-27 22:42:20 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2007-09-27 22:42:20 (GMT) |
| commit | c63f9b42ec89ff649f4f086e2f422fa01d9967b1 (patch) | |
| tree | 563d292a805c97be9136799016215ea99af39452 /fortran | |
| parent | a9a10b0a055824f676cf426fcd928772aeaa99c8 (diff) | |
| download | hdf5-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')
| -rw-r--r-- | fortran/src/H5Af.c | 16 |
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; } |