[svn-r362] Added Attribute (H5A) test

1 files changed, 1101 insertions, 0 deletions

diff --git a/test/tattr.c b/test/tattr.c
new file mode 100644
index 0000000..822472f
--- /dev/null
+++ b/test/tattr.c
@@ -0,0 +1,1101 @@
+/****************************************************************************
+ * NCSA HDF								                                    *
+ * Software Development Group						                        *
+ * National Center for Supercomputing Applications			                *
+ * University of Illinois at Urbana-Champaign				                *
+ * 605 E. Springfield, Champaign IL 61820				                    *
+ *									                                        *
+ * For conditions of distribution and use, see the accompanying		        *
+ * hdf/COPYING file.							                            *
+ *									                                        *
+ ****************************************************************************/
+
+#ifdef RCSID
+static char		RcsId[] = "$Revision$";
+#endif
+
+/* $Id$ */
+
+/***********************************************************
+*
+* Test program:	 tattr
+*
+* Test the attribute functionality
+*
+*************************************************************/
+
+#include <testhdf5.h>
+
+#include <hdf5.h>
+
+#define FILE   "tattr.h5"
+#define ATTR_NAME_LEN   16
+#define ATTR_MAX_DIMS   7
+
+/* 3-D dataset with fixed dimensions */
+#define SPACE1_NAME  "Space1"
+#define SPACE1_RANK	3
+#define SPACE1_DIM1	3
+#define SPACE1_DIM2	15
+#define SPACE1_DIM3	13
+
+/* Group Information */
+#define GROUP1_NAME "/Group1"
+
+/* Attribute Rank & Dimensions */
+#define ATTR1_NAME  "Attr1"
+#define ATTR1_RANK	1
+#define ATTR1_DIM1	3
+int32 attr_data1[ATTR1_DIM1]={512,-234,98123}; /* Test data for 1st attribute */
+
+#define ATTR2_NAME  "Attr2"
+#define ATTR2_RANK	2
+#define ATTR2_DIM1	2
+#define ATTR2_DIM2	2
+int32 attr_data2[ATTR2_DIM1][ATTR2_DIM2]={{7614,-416},{197814,-3}}; /* Test data for 2nd attribute */
+
+#define ATTR3_NAME  "Attr3"
+#define ATTR3_RANK	3
+#define ATTR3_DIM1	2
+#define ATTR3_DIM2	2
+#define ATTR3_DIM3	2
+double attr_data3[ATTR3_DIM1][ATTR3_DIM2][ATTR3_DIM3]={{{2.3,-26.1},{0.123,-10.0}},{{981724.2,-0.91827},{2.0,23.0}}}; /* Test data for 3rd attribute */
+
+#define ATTR4_NAME  "Attr4"
+#define ATTR4_RANK	2
+#define ATTR4_DIM1	2
+#define ATTR4_DIM2	2
+#define ATTR4_FIELDNAME1	"i"
+#define ATTR4_FIELDNAME2	"d"
+#define ATTR4_FIELDNAME3	"c"
+struct attr4_struct {
+    int32 i;
+    double d;
+    char c;
+ } attr_data4[ATTR4_DIM1][ATTR4_DIM2]={{{3,-26.1,'d'},{-100000, 0.123,'3'}},
+    {{-23,981724.2,'Q'},{0,2.0,'\n'}}}; /* Test data for 4th attribute */
+
+int attr_op1(hid_t loc_id, const char *name, void *op_data);
+
+/****************************************************************
+**
+**  test_attr_basic_write(): Test basic H5A (attribute) code.
+**      Tests integer attributes on both datasets and groups
+** 
+****************************************************************/
+static void 
+test_attr_basic_write(void)
+{
+    hid_t		fid1;		/* HDF5 File IDs		*/
+    hid_t		dataset;	/* Dataset ID			*/
+    hid_t		group;	    /* Group ID			    */
+    hid_t		sid1,sid2;	/* Dataspace ID			*/
+    hid_t		attr;	    /* Attribute ID			*/
+    hsize_t		dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+    hsize_t		dims2[] = {ATTR1_DIM1};
+    hsize_t		dims3[] = {ATTR2_DIM1,ATTR2_DIM2};
+    herr_t		ret;		/* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Basic Attribute Functions\n"));
+
+    /* Create file */
+    fid1 = H5Fcreate(FILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
+    CHECK(fid1, FAIL, "H5Fcreate");
+
+    /* Create dataspace for dataset */
+    sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
+    CHECK(sid1, FAIL, "H5Screate_simple");
+
+    /* Create a dataset */
+    dataset=H5Dcreate(fid1,"Dataset1",H5T_NATIVE_UINT8,sid1,H5P_DEFAULT);
+
+    /* Create dataspace for attribute */
+    sid2 = H5Screate_simple(ATTR1_RANK, dims2, NULL);
+    CHECK(sid2, FAIL, "H5Screate_simple");
+
+    /* Create an attribute for the dataset */
+    attr=H5Acreate(dataset,ATTR1_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    CHECK(attr, FAIL, "H5Acreate");
+
+    /* Try to create the same attribute again (should fail) */
+    ret=H5Acreate(dataset,ATTR1_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    VERIFY(ret, FAIL, "H5Acreate");
+
+    /* Write attribute information */
+    ret=H5Awrite(attr,H5T_NATIVE_INT32,&attr_data1);
+    CHECK(ret, FAIL, "H5Awrite");
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    ret = H5Sclose(sid1);
+    CHECK(ret, FAIL, "H5Sclose");
+    ret = H5Sclose(sid2);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Close Dataset */
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Create group */
+    group = H5Gcreate(fid1, GROUP1_NAME, 0);
+    CHECK(group, FAIL, "H5Gcreate");
+
+    /* Create dataspace for attribute */
+    sid2 = H5Screate_simple(ATTR2_RANK, dims3, NULL);
+    CHECK(sid2, FAIL, "H5Screate_simple");
+
+    /* Create an attribute for the group */
+    attr=H5Acreate(group,ATTR2_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    CHECK(attr, FAIL, "H5Acreate");
+
+    /* Try to create the same attribute again (should fail) */
+    ret=H5Acreate(group,ATTR2_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    VERIFY(ret, FAIL, "H5Acreate");
+
+    /* Write attribute information */
+    ret=H5Awrite(attr,H5T_NATIVE_INT32,&attr_data2);
+    CHECK(ret, FAIL, "H5Awrite");
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Close Attribute dataspace */
+    ret = H5Sclose(sid2);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Close Group */
+    ret = H5Gclose(group);
+    CHECK(ret, FAIL, "H5Gclose");
+
+    /* Close file */
+    ret = H5Fclose(fid1);
+    CHECK(ret, FAIL, "H5Fclose");
+}   /* test_attr_basic_write() */
+
+/****************************************************************
+**
+**  test_attr_basic_read(): Test basic H5A (attribute) code.
+** 
+****************************************************************/
+static void 
+test_attr_basic_read(void)
+{
+    hid_t		fid1;		/* HDF5 File IDs		*/
+    hid_t		dataset;	/* Dataset ID			*/
+    hid_t		group;	    /* Group ID			    */
+    hid_t		attr;	    /* Attribute ID			*/
+    int32       read_data1[ATTR1_DIM1]={0}; /* Buffer for reading 1st attribute */
+    int32       read_data2[ATTR2_DIM1][ATTR2_DIM2]={{0}}; /* Buffer for reading 2nd attribute */
+    int         i,j;
+    herr_t		ret;		/* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Basic Attribute Functions\n"));
+
+    /* Create file */
+    fid1 = H5Fopen(FILE, H5F_ACC_RDWR, H5P_DEFAULT);
+    CHECK(fid1, FAIL, "H5Fopen");
+
+    /* Open the dataset */
+    dataset=H5Dopen(fid1,"Dataset1");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 1, "H5Anum_attrs");
+
+    /* Open an attribute for the dataset */
+    attr=H5Aopen_name(dataset,ATTR1_NAME);
+    CHECK(attr, FAIL, "H5Aopen_name");
+
+    /* Read attribute information */
+    ret=H5Aread(attr,H5T_NATIVE_INT32,&read_data1);
+    CHECK(ret, FAIL, "H5Aread");
+
+    /* Verify values read in */
+    for(i=0; i<ATTR1_DIM1; i++)
+        if(attr_data1[i]!=read_data1[i]) {
+            printf("attribute data different: attr_data1[%d]=%d, read_data1[%d]=%d\n",i,attr_data1[i],i,read_data1[i]);
+            num_errs++;
+         } /* end if */
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Open the group */
+    group=H5Gopen(fid1,GROUP1_NAME);
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(group);
+    VERIFY(ret, 1, "H5Anum_attrs");
+
+    /* Open an attribute for the dataset */
+    attr=H5Aopen_name(group,ATTR2_NAME);
+    CHECK(attr, FAIL, "H5Aopen_name");
+
+    /* Read attribute information */
+    ret=H5Aread(attr,H5T_NATIVE_INT32,&read_data2);
+    CHECK(ret, FAIL, "H5Aread");
+
+    /* Verify values read in */
+    for(i=0; i<ATTR2_DIM1; i++)
+        for(j=0; j<ATTR2_DIM2; j++)
+        if(attr_data2[i][j]!=read_data2[i][j]) {
+            printf("attribute data different: attr_data2[%d][%d]=%d, read_data2[%d][%d]=%d\n",i,j,attr_data2[i][j],i,j,read_data1[i]);
+            num_errs++;
+         } /* end if */
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Close group */
+    ret = H5Gclose(group);
+    CHECK(ret, FAIL, "H5Gclose");
+
+    /* Close file */
+    ret = H5Fclose(fid1);
+    CHECK(ret, FAIL, "H5Fclose");
+}   /* test_attr_basic_read() */
+
+/****************************************************************
+**
+**  test_attr_complex_write(): Test H5A (attribute) code.
+**      Tests complex datatype attributes
+** 
+****************************************************************/
+static void 
+test_attr_complex_write(void)
+{
+    hid_t		fid1;		/* HDF5 File IDs		*/
+    hid_t		dataset;	/* Dataset ID			*/
+    hid_t       tid1;       /* Attribute datatype ID */
+    hid_t		sid1,sid2;	/* Dataspace ID			*/
+    hid_t		attr;	    /* Attribute ID			*/
+    hsize_t		dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+    hsize_t		dims2[] = {ATTR4_DIM1,ATTR4_DIM2};
+    herr_t		ret;		/* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Multiple Attribute Functions\n"));
+
+    /* Create file */
+    fid1 = H5Fcreate(FILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
+    CHECK(fid1, FAIL, "H5Fcreate");
+
+    /* Create dataspace for dataset */
+    sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
+    CHECK(sid1, FAIL, "H5Screate_simple");
+
+    /* Create a dataset */
+    dataset=H5Dcreate(fid1,"Dataset1",H5T_NATIVE_UINT8,sid1,H5P_DEFAULT);
+
+    /* Close dataset's dataspace */
+    ret = H5Sclose(sid1);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Create the attribute datatype.  */
+    tid1 = H5Tcreate (H5T_COMPOUND, sizeof(struct attr4_struct));
+    CHECK(tid1, FAIL, "H5Tcreate");
+    ret = H5Tinsert(tid1, ATTR4_FIELDNAME1, HOFFSET(struct attr4_struct, i), H5T_NATIVE_INT32);
+    CHECK(ret, FAIL, "H5Tinsert");
+    ret = H5Tinsert(tid1, ATTR4_FIELDNAME2, HOFFSET(struct attr4_struct, d), H5T_NATIVE_DOUBLE);
+    CHECK(ret, FAIL, "H5Tinsert");
+    ret = H5Tinsert(tid1, ATTR4_FIELDNAME3, HOFFSET(struct attr4_struct, c), H5T_NATIVE_CHAR);
+    CHECK(ret, FAIL, "H5Tinsert");
+
+    /* Create dataspace for 1st attribute */
+    sid2 = H5Screate_simple(ATTR4_RANK, dims2, NULL);
+    CHECK(sid2, FAIL, "H5Screate_simple");
+
+    /* Create complex attribute for the dataset */
+    attr=H5Acreate(dataset,ATTR4_NAME,tid1,sid2,H5P_DEFAULT);
+    CHECK(attr, FAIL, "H5Acreate");
+
+    /* Try to create the same attribute again (should fail) */
+    ret=H5Acreate(dataset,ATTR4_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    VERIFY(ret, FAIL, "H5Acreate");
+
+    /* Write complex attribute data */
+    ret=H5Awrite(attr,tid1,&attr_data4);
+    CHECK(ret, FAIL, "H5Awrite");
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Close attribute's dataspace */
+    ret = H5Sclose(sid2);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Close attribute's datatype */
+    ret = H5Tclose(tid1);
+    CHECK(ret, FAIL, "H5Tclose");
+
+    /* Close Dataset */
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Close file */
+    ret = H5Fclose(fid1);
+    CHECK(ret, FAIL, "H5Fclose");
+}   /* test_attr_complex_write() */
+
+/****************************************************************
+**
+**  test_attr_complex_read(): Test basic H5A (attribute) code.
+** 
+****************************************************************/
+static void 
+test_attr_complex_read(void)
+{
+    hid_t   fid1;		/* HDF5 File IDs		*/
+    hid_t   dataset;	/* Dataset ID			*/
+    hid_t   space;      /* Attribute dataspace  */
+    hid_t   type;       /* Attribute datatype   */
+    hid_t   attr;	    /* Attribute ID			*/
+    char    attr_name[ATTR_NAME_LEN]; /* Buffer for attribute names */
+    int     rank;       /* Attribute rank */
+    hsize_t dims[ATTR_MAX_DIMS];    /* Attribute dimensions */
+    H5T_class_t class;  /* Attribute datatype class */
+    H5T_order_t order;  /* Attribute datatype order */
+    size_t      size;   /* Attribute datatype size as stored in file */ 
+    int     fields;     /* # of Attribute datatype fields */
+    char *fieldname;    /* Name of a field */
+    size_t      offset; /* Attribute datatype field offset */
+    hid_t   field;      /* Attribute field datatype */
+    struct attr4_struct read_data4[ATTR4_DIM1][ATTR4_DIM2]={}; /* Buffer for reading 4th attribute */
+    int     i,j;
+    size_t  name_len;   /* Length of attribute name */
+    herr_t  ret;		/* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Basic Attribute Functions\n"));
+
+    /* Open file */
+    fid1 = H5Fopen(FILE, H5F_ACC_RDWR, H5P_DEFAULT);
+    CHECK(fid1, FAIL, "H5Fopen");
+
+    /* Open the dataset */
+    dataset=H5Dopen(fid1,"Dataset1");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 1, "H5Anum_attrs");
+
+    /* Open 1st attribute for the dataset */
+    attr=H5Aopen_idx(dataset,0);
+    CHECK(attr, FAIL, "H5Aopen_idx");
+
+    /* Verify Dataspace */
+    space=H5Aget_space(attr);
+    CHECK(space, FAIL, "H5Aget_space");
+    rank=H5Sget_ndims(space);
+    VERIFY(rank, ATTR4_RANK, "H5Sget_ndims");
+    ret=H5Sget_dims(space,dims);
+    CHECK(ret, FAIL, "H5Sget_dims");
+    if(dims[0]!=ATTR4_DIM1) {
+        printf("attribute dimensions different: dims[0]=%d, should be %d\n",(int)dims[0],ATTR4_DIM1);
+        num_errs++;
+     } /* end if */
+    if(dims[1]!=ATTR4_DIM2) {
+        printf("attribute dimensions different: dims[1]=%d, should be %d\n",(int)dims[1],ATTR4_DIM2);
+        num_errs++;
+     } /* end if */
+    H5Sclose(space);
+
+    /* Verify Datatype */
+    type=H5Aget_type(attr);
+    CHECK(type, FAIL, "H5Aget_type");
+    class=H5Tget_class(type);
+    VERIFY(class, H5T_COMPOUND, "H5Tget_class");
+    fields=H5Tget_nmembers(type);
+    VERIFY(fields, 3, "H5Tget_nmembers");
+    for(i=0; i<fields; i++) {
+        fieldname=H5Tget_member_name(type,i);
+        if(!(HDstrcmp(fieldname,ATTR4_FIELDNAME1) || 
+                HDstrcmp(fieldname,ATTR4_FIELDNAME2) ||
+                HDstrcmp(fieldname,ATTR4_FIELDNAME3))) {
+            printf("invalid field name for field #%d: %s\n",i,fieldname);
+            num_errs++;
+          } /* end if */
+        free(fieldname);
+      } /* end for */
+    offset=H5Tget_member_offset(type,0);
+    VERIFY(offset, 0, "H5Tget_member_offset");
+    offset=H5Tget_member_offset(type,1);
+    VERIFY(offset, 4, "H5Tget_member_offset");
+    offset=H5Tget_member_offset(type,2);
+    VERIFY(offset, 12, "H5Tget_member_offset");
+
+    /* Verify each field's type, class & size */
+    field=H5Tget_member_type(type,0);
+    CHECK(field, FAIL, "H5Tget_member_type");
+    class=H5Tget_class(field);
+    VERIFY(class, H5T_INTEGER, "H5Tget_class");
+    order=H5Tget_order(field);
+    VERIFY(order, H5Tget_order(H5T_NATIVE_INT32), "H5Tget_order");
+    size=H5Tget_size(field);
+    VERIFY(size, H5Tget_size(H5T_NATIVE_INT32), "H5Tget_size");
+    H5Tclose(field);
+    field=H5Tget_member_type(type,1);
+    CHECK(field, FAIL, "H5Tget_member_type");
+    class=H5Tget_class(field);
+    VERIFY(class, H5T_FLOAT, "H5Tget_class");
+    order=H5Tget_order(field);
+    VERIFY(order, H5Tget_order(H5T_NATIVE_DOUBLE), "H5Tget_order");
+    size=H5Tget_size(field);
+    VERIFY(size, H5Tget_size(H5T_NATIVE_DOUBLE), "H5Tget_size");
+    H5Tclose(field);
+    field=H5Tget_member_type(type,2);
+    CHECK(field, FAIL, "H5Tget_member_type");
+    class=H5Tget_class(field);
+    VERIFY(class, H5T_INTEGER, "H5Tget_class");
+    order=H5Tget_order(field);
+    VERIFY(order, H5Tget_order(H5T_NATIVE_CHAR), "H5Tget_order");
+    size=H5Tget_size(field);
+    VERIFY(size, H5Tget_size(H5T_NATIVE_CHAR), "H5Tget_size");
+    H5Tclose(field);
+
+    /* Read attribute information */
+    ret=H5Aread(attr,type,&read_data4);
+    CHECK(ret, FAIL, "H5Aread");
+
+    /* Verify values read in */
+    for(i=0; i<ATTR4_DIM1; i++)
+        for(j=0; j<ATTR4_DIM2; j++)
+            if(HDmemcmp(&attr_data4[i][j],&read_data4[i][j],sizeof(struct attr4_struct))) {
+                printf("attribute data different: attr_data4[%d][%d].i=%d, read_data4[%d][%d].i=%d\n",i,j,attr_data4[i][j].i,i,j,read_data4[i][j].i);
+                printf("attribute data different: attr_data4[%d][%d].d=%f, read_data4[%d][%d].d=%f\n",i,j,attr_data4[i][j].d,i,j,read_data4[i][j].d);
+                printf("attribute data different: attr_data4[%d][%d].c=%c, read_data4[%d][%d].c=%c\n",i,j,attr_data4[i][j].c,i,j,read_data4[i][j].c);
+                num_errs++;
+             } /* end if */
+
+    /* Verify Name */
+    name_len=H5Aget_name(attr,attr_name,ATTR_NAME_LEN);
+    VERIFY(name_len, HDstrlen(ATTR4_NAME), "H5Aget_name");
+    if(HDstrcmp(attr_name,ATTR4_NAME)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,ATTR4_NAME);
+        num_errs++;
+     } /* end if */
+
+    /* Close attribute datatype */
+    ret=H5Tclose(type);
+    CHECK(ret, FAIL, "H5Tclose");
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Close dataset */
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Close file */
+    ret = H5Fclose(fid1);
+    CHECK(ret, FAIL, "H5Fclose");
+}   /* test_attr_complex_read() */
+
+/****************************************************************
+**
+**  test_attr_mult_write(): Test basic H5A (attribute) code.
+**      Tests integer attributes on both datasets and groups
+** 
+****************************************************************/
+static void 
+test_attr_mult_write(void)
+{
+    hid_t		fid1;		/* HDF5 File IDs		*/
+    hid_t		dataset;	/* Dataset ID			*/
+    hid_t		sid1,sid2;	/* Dataspace ID			*/
+    hid_t		attr;	    /* Attribute ID			*/
+    hsize_t		dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+    hsize_t		dims2[] = {ATTR1_DIM1};
+    hsize_t		dims3[] = {ATTR2_DIM1,ATTR2_DIM2};
+    hsize_t		dims4[] = {ATTR3_DIM1,ATTR3_DIM2,ATTR3_DIM3};
+    herr_t		ret;		/* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Multiple Attribute Functions\n"));
+
+    /* Create file */
+    fid1 = H5Fcreate(FILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
+    CHECK(fid1, FAIL, "H5Fcreate");
+
+    /* Create dataspace for dataset */
+    sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
+    CHECK(sid1, FAIL, "H5Screate_simple");
+
+    /* Create a dataset */
+    dataset=H5Dcreate(fid1,"Dataset1",H5T_NATIVE_UINT8,sid1,H5P_DEFAULT);
+
+    /* Close dataset's dataspace */
+    ret = H5Sclose(sid1);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Create dataspace for 1st attribute */
+    sid2 = H5Screate_simple(ATTR1_RANK, dims2, NULL);
+    CHECK(sid2, FAIL, "H5Screate_simple");
+
+    /* Create 1st attribute for the dataset */
+    attr=H5Acreate(dataset,ATTR1_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    CHECK(attr, FAIL, "H5Acreate");
+
+    /* Try to create the same attribute again (should fail) */
+    ret=H5Acreate(dataset,ATTR1_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    VERIFY(ret, FAIL, "H5Acreate");
+
+    /* Write 1st attribute data */
+    ret=H5Awrite(attr,H5T_NATIVE_INT32,&attr_data1);
+    CHECK(ret, FAIL, "H5Awrite");
+
+    /* Close 1st attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Close attribute's dataspace */
+    ret = H5Sclose(sid2);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Create dataspace for 2nd attribute */
+    sid2 = H5Screate_simple(ATTR2_RANK, dims3, NULL);
+    CHECK(sid2, FAIL, "H5Screate_simple");
+
+    /* Create 2nd attribute for the dataset */
+    attr=H5Acreate(dataset,ATTR2_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    CHECK(attr, FAIL, "H5Acreate");
+
+    /* Try to create the same attribute again (should fail) */
+    ret=H5Acreate(dataset,ATTR2_NAME,H5T_NATIVE_INT32,sid2,H5P_DEFAULT);
+    VERIFY(ret, FAIL, "H5Acreate");
+
+    /* Write 2nd attribute information */
+    ret=H5Awrite(attr,H5T_NATIVE_INT32,&attr_data2);
+    CHECK(ret, FAIL, "H5Awrite");
+
+    /* Close 2nd attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Close 2nd attribute's dataspace */
+    ret = H5Sclose(sid2);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Create dataspace for 3rd attribute */
+    sid2 = H5Screate_simple(ATTR3_RANK, dims4, NULL);
+    CHECK(sid2, FAIL, "H5Screate_simple");
+
+    /* Create 3rd attribute for the dataset */
+    attr=H5Acreate(dataset,ATTR3_NAME,H5T_NATIVE_DOUBLE,sid2,H5P_DEFAULT);
+    CHECK(attr, FAIL, "H5Acreate");
+
+    /* Try to create the same attribute again (should fail) */
+    ret=H5Acreate(dataset,ATTR3_NAME,H5T_NATIVE_DOUBLE,sid2,H5P_DEFAULT);
+    VERIFY(ret, FAIL, "H5Acreate");
+
+    /* Write 3rd attribute information */
+    ret=H5Awrite(attr,H5T_NATIVE_DOUBLE,&attr_data3);
+    CHECK(ret, FAIL, "H5Awrite");
+
+    /* Close 3rd attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Close 3rd attribute's dataspace */
+    ret = H5Sclose(sid2);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Close Dataset */
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Close file */
+    ret = H5Fclose(fid1);
+    CHECK(ret, FAIL, "H5Fclose");
+}   /* test_attr_mult_write() */
+
+/****************************************************************
+**
+**  test_attr_mult_read(): Test basic H5A (attribute) code.
+** 
+****************************************************************/
+static void 
+test_attr_mult_read(void)
+{
+    hid_t   fid1;		/* HDF5 File IDs		*/
+    hid_t   dataset;	/* Dataset ID			*/
+    hid_t   space;      /* Attribute dataspace  */
+    hid_t   type;       /* Attribute datatype   */
+    hid_t   attr;	    /* Attribute ID			*/
+    char    attr_name[ATTR_NAME_LEN]; /* Buffer for attribute names */
+    char    temp_name[ATTR_NAME_LEN]; /* Buffer for mangling attribute names */
+    int     rank;       /* Attribute rank */
+    hsize_t dims[ATTR_MAX_DIMS];    /* Attribute dimensions */
+    H5T_class_t class;              /* Attribute datatype class */
+    H5T_order_t order;              /* Attribute datatype order */
+    size_t      size;               /* Attribute datatype size as stored in file */ 
+    int32   read_data1[ATTR1_DIM1]={0}; /* Buffer for reading 1st attribute */
+    int32   read_data2[ATTR2_DIM1][ATTR2_DIM2]={{0}}; /* Buffer for reading 2nd attribute */
+    double  read_data3[ATTR3_DIM1][ATTR3_DIM2][ATTR3_DIM3]={{{0}}}; /* Buffer for reading 3rd attribute */
+    int     i,j,k;
+    size_t  name_len;   /* Length of attribute name */
+    herr_t  ret;		/* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Basic Attribute Functions\n"));
+
+    /* Open file */
+    fid1 = H5Fopen(FILE, H5F_ACC_RDWR, H5P_DEFAULT);
+    CHECK(fid1, FAIL, "H5Fopen");
+
+    /* Open the dataset */
+    dataset=H5Dopen(fid1,"Dataset1");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 3, "H5Anum_attrs");
+
+    /* Open 1st attribute for the dataset */
+    attr=H5Aopen_idx(dataset,0);
+    CHECK(attr, FAIL, "H5Aopen_idx");
+
+    /* Verify Dataspace */
+    space=H5Aget_space(attr);
+    CHECK(space, FAIL, "H5Aget_space");
+    rank=H5Sget_ndims(space);
+    VERIFY(rank, ATTR1_RANK, "H5Sget_ndims");
+    ret=H5Sget_dims(space,dims);
+    CHECK(ret, FAIL, "H5Sget_dims");
+    if(dims[0]!=ATTR1_DIM1) {
+        printf("attribute dimensions different: dims[0]=%d, should be %d\n",(int)dims[0],ATTR1_DIM1);
+        num_errs++;
+     } /* end if */
+    H5Sclose(space);
+
+    /* Verify Datatype */
+    type=H5Aget_type(attr);
+    CHECK(type, FAIL, "H5Aget_type");
+    class=H5Tget_class(type);
+    VERIFY(class, H5T_INTEGER, "H5Tget_class");
+    order=H5Tget_order(type);
+    VERIFY(order, H5Tget_order(H5T_NATIVE_INT32), "H5Tget_order");
+    size=H5Tget_size(type);
+    VERIFY(size, H5Tget_size(H5T_NATIVE_INT32), "H5Tget_size");
+    H5Tclose(type);
+
+    /* Read attribute information */
+    ret=H5Aread(attr,H5T_NATIVE_INT32,&read_data1);
+    CHECK(ret, FAIL, "H5Aread");
+
+    /* Verify values read in */
+    for(i=0; i<ATTR1_DIM1; i++)
+        if(attr_data1[i]!=read_data1[i]) {
+            printf("attribute data different: attr_data1[%d]=%d, read_data1[%d]=%d\n",i,attr_data1[i],i,read_data1[i]);
+            num_errs++;
+         } /* end if */
+
+    /* Verify Name */
+    name_len=H5Aget_name(attr,attr_name,ATTR_NAME_LEN);
+    VERIFY(name_len, HDstrlen(ATTR1_NAME), "H5Aget_name");
+    if(HDstrcmp(attr_name,ATTR1_NAME)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,ATTR1_NAME);
+        num_errs++;
+     } /* end if */
+
+    /* Verify Name with too small of a buffer */
+    name_len=H5Aget_name(attr,attr_name,HDstrlen(ATTR1_NAME));
+    VERIFY(name_len, HDstrlen(ATTR1_NAME), "H5Aget_name");
+    HDstrcpy(temp_name,ATTR1_NAME);     /* make a copy of the name */
+    temp_name[HDstrlen(ATTR1_NAME)-1]='\0';   /* truncate it to match the one retrieved */
+    if(HDstrcmp(attr_name,temp_name)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,temp_name);
+        num_errs++;
+     } /* end if */
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Open 2nd attribute for the dataset */
+    attr=H5Aopen_idx(dataset,1);
+    CHECK(attr, FAIL, "H5Aopen_idx");
+
+    /* Verify Dataspace */
+    space=H5Aget_space(attr);
+    CHECK(space, FAIL, "H5Aget_space");
+    rank=H5Sget_ndims(space);
+    VERIFY(rank, ATTR2_RANK, "H5Sget_ndims");
+    ret=H5Sget_dims(space,dims);
+    CHECK(ret, FAIL, "H5Sget_dims");
+    if(dims[0]!=ATTR2_DIM1) {
+        printf("attribute dimensions different: dims[0]=%d, should be %d\n",(int)dims[0],ATTR2_DIM1);
+        num_errs++;
+     } /* end if */
+    if(dims[1]!=ATTR2_DIM2) {
+        printf("attribute dimensions different: dims[1]=%d, should be %d\n",(int)dims[1],ATTR2_DIM2);
+        num_errs++;
+     } /* end if */
+    H5Sclose(space);
+
+    /* Verify Datatype */
+    type=H5Aget_type(attr);
+    CHECK(type, FAIL, "H5Aget_type");
+    class=H5Tget_class(type);
+    VERIFY(class, H5T_INTEGER, "H5Tget_class");
+    order=H5Tget_order(type);
+    VERIFY(order, H5Tget_order(H5T_NATIVE_INT32), "H5Tget_order");
+    size=H5Tget_size(type);
+    VERIFY(size, H5Tget_size(H5T_NATIVE_INT32), "H5Tget_size");
+    H5Tclose(type);
+
+    /* Read attribute information */
+    ret=H5Aread(attr,H5T_NATIVE_INT32,&read_data2);
+    CHECK(ret, FAIL, "H5Aread");
+
+    /* Verify values read in */
+    for(i=0; i<ATTR2_DIM1; i++)
+        for(j=0; j<ATTR2_DIM2; j++)
+        if(attr_data2[i][j]!=read_data2[i][j]) {
+            printf("attribute data different: attr_data2[%d][%d]=%d, read_data2[%d][%d]=%d\n",i,j,attr_data2[i][j],i,j,read_data2[i][j]);
+            num_errs++;
+         } /* end if */
+
+    /* Verify Name */
+    name_len=H5Aget_name(attr,attr_name,ATTR_NAME_LEN);
+    VERIFY(name_len, HDstrlen(ATTR2_NAME), "H5Aget_name");
+    if(HDstrcmp(attr_name,ATTR2_NAME)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,ATTR2_NAME);
+        num_errs++;
+     } /* end if */
+
+    /* Verify Name with too small of a buffer */
+    name_len=H5Aget_name(attr,attr_name,HDstrlen(ATTR2_NAME));
+    VERIFY(name_len, HDstrlen(ATTR2_NAME), "H5Aget_name");
+    HDstrcpy(temp_name,ATTR2_NAME);     /* make a copy of the name */
+    temp_name[HDstrlen(ATTR2_NAME)-1]='\0';   /* truncate it to match the one retrieved */
+    if(HDstrcmp(attr_name,temp_name)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,temp_name);
+        num_errs++;
+     } /* end if */
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Open 2nd attribute for the dataset */
+    attr=H5Aopen_idx(dataset,2);
+    CHECK(attr, FAIL, "H5Aopen_idx");
+
+    /* Verify Dataspace */
+    space=H5Aget_space(attr);
+    CHECK(space, FAIL, "H5Aget_space");
+    rank=H5Sget_ndims(space);
+    VERIFY(rank, ATTR3_RANK, "H5Sget_ndims");
+    ret=H5Sget_dims(space,dims);
+    CHECK(ret, FAIL, "H5Sget_dims");
+    if(dims[0]!=ATTR3_DIM1) {
+        printf("attribute dimensions different: dims[0]=%d, should be %d\n",(int)dims[0],ATTR3_DIM1);
+        num_errs++;
+     } /* end if */
+    if(dims[1]!=ATTR3_DIM2) {
+        printf("attribute dimensions different: dims[1]=%d, should be %d\n",(int)dims[1],ATTR3_DIM2);
+        num_errs++;
+     } /* end if */
+    if(dims[2]!=ATTR3_DIM3) {
+        printf("attribute dimensions different: dims[2]=%d, should be %d\n",(int)dims[2],ATTR3_DIM3);
+        num_errs++;
+     } /* end if */
+    H5Sclose(space);
+
+    /* Verify Datatype */
+    type=H5Aget_type(attr);
+    CHECK(type, FAIL, "H5Aget_type");
+    class=H5Tget_class(type);
+    VERIFY(class, H5T_FLOAT, "H5Tget_class");
+    order=H5Tget_order(type);
+    VERIFY(order, H5Tget_order(H5T_NATIVE_DOUBLE), "H5Tget_order");
+    size=H5Tget_size(type);
+    VERIFY(size, H5Tget_size(H5T_NATIVE_DOUBLE), "H5Tget_size");
+    H5Tclose(type);
+
+    /* Read attribute information */
+    ret=H5Aread(attr,H5T_NATIVE_DOUBLE,&read_data3);
+    CHECK(ret, FAIL, "H5Aread");
+
+    /* Verify values read in */
+    for(i=0; i<ATTR3_DIM1; i++)
+        for(j=0; j<ATTR3_DIM2; j++)
+            for(k=0; k<ATTR3_DIM3; k++)
+                if(attr_data3[i][j][k]!=read_data3[i][j][k]) {
+                    printf("attribute data different: attr_data3[%d][%d][%d]=%f, read_data3[%d][%d][%d]=%f\n",i,j,k,attr_data3[i][j][k],i,j,k,read_data3[i][j][k]);
+                    num_errs++;
+                 } /* end if */
+
+    /* Verify Name */
+    name_len=H5Aget_name(attr,attr_name,ATTR_NAME_LEN);
+    VERIFY(name_len, HDstrlen(ATTR3_NAME), "H5Aget_name");
+    if(HDstrcmp(attr_name,ATTR3_NAME)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,ATTR3_NAME);
+        num_errs++;
+     } /* end if */
+
+    /* Verify Name with too small of a buffer */
+    name_len=H5Aget_name(attr,attr_name,HDstrlen(ATTR3_NAME));
+    VERIFY(name_len, HDstrlen(ATTR3_NAME), "H5Aget_name");
+    HDstrcpy(temp_name,ATTR3_NAME);     /* make a copy of the name */
+    temp_name[HDstrlen(ATTR3_NAME)-1]='\0';   /* truncate it to match the one retrieved */
+    if(HDstrcmp(attr_name,temp_name)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,temp_name);
+        num_errs++;
+     } /* end if */
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Close dataset */
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Close file */
+    ret = H5Fclose(fid1);
+    CHECK(ret, FAIL, "H5Fclose");
+}   /* test_attr_mult_read() */
+
+/****************************************************************
+**
+**  attr_op1(): Attribute operator
+** 
+****************************************************************/
+int attr_op1(hid_t __unused__ loc_id, const char *name, void *op_data)
+{
+    int *count=(int *)op_data;
+    int ret=0;
+
+    switch(*count) {
+        case 0:
+            if(HDstrcmp(name,ATTR1_NAME)) {
+                printf("attribute name different: name=%s, should be %s\n",name,ATTR1_NAME);
+                num_errs++;
+             } /* end if */
+             (*count)++;
+             break;
+
+        case 1:
+            if(HDstrcmp(name,ATTR2_NAME)) {
+                printf("attribute name different: name=%s, should be %s\n",name,ATTR2_NAME);
+                num_errs++;
+             } /* end if */
+             (*count)++;
+             break;
+
+        case 2:
+            if(HDstrcmp(name,ATTR3_NAME)) {
+                printf("attribute name different: name=%s, should be %s\n",name,ATTR3_NAME);
+                num_errs++;
+             } /* end if */
+             (*count)++;
+             break;
+        
+        default:
+            ret=-1;
+            break;
+    }  /* end switch() */
+
+    return(ret);
+} /* end attr_op1() */
+
+/****************************************************************
+**
+**  test_attr_iterate(): Test H5A (attribute) iterator code.
+** 
+****************************************************************/
+static void 
+test_attr_iterate(void)
+{
+    hid_t   file;		/* HDF5 File ID 		*/
+    hid_t   dataset;	/* Dataset ID			*/
+    unsigned start;     /* Starting attribute to look up */
+    int     count;      /* operator data for the iterator */
+    herr_t  ret;		/* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Basic Attribute Functions\n"));
+
+    /* Open file */
+    file = H5Fopen(FILE, H5F_ACC_RDWR, H5P_DEFAULT);
+    CHECK(file, FAIL, "H5Fopen");
+
+    /* Open the dataset */
+    dataset=H5Dopen(file,"Dataset1");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 3, "H5Anum_attrs");
+
+    /* Close dataset */
+    start=0;
+    count=0;
+    ret = H5Aiterate(dataset,&start,attr_op1,&count);
+    VERIFY(ret, 0, "H5Aiterate");
+
+    /* Close dataset */
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Close file */
+    ret = H5Fclose(file);
+    CHECK(ret, FAIL, "H5Fclose");
+}   /* test_attr_iterate() */
+
+/****************************************************************
+**
+**  test_attr_delete(): Test H5A (attribute) code for deleting objects.
+** 
+****************************************************************/
+static void 
+test_attr_delete(void)
+{
+    hid_t   fid1;		/* HDF5 File ID 		*/
+    hid_t   dataset;	/* Dataset ID			*/
+    hid_t   attr;	    /* Attribute ID			*/
+    char    attr_name[ATTR_NAME_LEN]; /* Buffer for attribute names */
+    size_t  name_len;   /* Length of attribute name */
+    herr_t  ret;		/* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Basic Attribute Functions\n"));
+
+    /* Open file */
+    fid1 = H5Fopen(FILE, H5F_ACC_RDWR, H5P_DEFAULT);
+    CHECK(fid1, FAIL, "H5Fopen");
+
+    /* Open the dataset */
+    dataset=H5Dopen(fid1,"Dataset1");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 3, "H5Anum_attrs");
+
+    /* Try to delete bogus attribute */
+    ret=H5Adelete(dataset,"Bogus");
+    CHECK(ret, FAIL, "H5Adelete");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 3, "H5Anum_attrs");
+
+    /* Delete middle (2nd) attribute */
+    ret=H5Adelete(dataset,ATTR2_NAME);
+    CHECK(ret, FAIL, "H5Adelete");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 2, "H5Anum_attrs");
+
+    /* Open 1st attribute for the dataset */
+    attr=H5Aopen_idx(dataset,0);
+    CHECK(attr, FAIL, "H5Aopen_idx");
+
+    /* Verify Name */
+    name_len=H5Aget_name(attr,attr_name,ATTR_NAME_LEN);
+    VERIFY(name_len, HDstrlen(ATTR1_NAME), "H5Aget_name");
+    if(HDstrcmp(attr_name,ATTR1_NAME)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,ATTR1_NAME);
+        num_errs++;
+     } /* end if */
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Open last (formally 3rd) attribute for the dataset */
+    attr=H5Aopen_idx(dataset,1);
+    CHECK(attr, FAIL, "H5Aopen_idx");
+
+    /* Verify Name */
+    name_len=H5Aget_name(attr,attr_name,ATTR_NAME_LEN);
+    VERIFY(name_len, HDstrlen(ATTR3_NAME), "H5Aget_name");
+    if(HDstrcmp(attr_name,ATTR3_NAME)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,ATTR3_NAME);
+        num_errs++;
+     } /* end if */
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Delete first attribute */
+    ret=H5Adelete(dataset,ATTR1_NAME);
+    CHECK(ret, FAIL, "H5Adelete");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 1, "H5Anum_attrs");
+
+    /* Open last (formally 3rd) attribute for the dataset */
+    attr=H5Aopen_idx(dataset,0);
+    CHECK(attr, FAIL, "H5Aopen_idx");
+
+    /* Verify Name */
+    name_len=H5Aget_name(attr,attr_name,ATTR_NAME_LEN);
+    VERIFY(name_len, HDstrlen(ATTR3_NAME), "H5Aget_name");
+    if(HDstrcmp(attr_name,ATTR3_NAME)) {
+        printf("attribute name different: attr_name=%s, should be %s\n",attr_name,ATTR3_NAME);
+        num_errs++;
+     } /* end if */
+
+    /* Close attribute */
+    ret=H5Aclose(attr);
+    CHECK(ret, FAIL, "H5Aclose");
+
+    /* Delete first attribute */
+    ret=H5Adelete(dataset,ATTR3_NAME);
+    CHECK(ret, FAIL, "H5Adelete");
+
+    /* Verify the correct number of attributes */
+    ret=H5Anum_attrs(dataset);
+    VERIFY(ret, 0, "H5Anum_attrs");
+
+    /* Close dataset */
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Close file */
+    ret = H5Fclose(fid1);
+    CHECK(ret, FAIL, "H5Fclose");
+}   /* test_attr_delete() */
+
+/****************************************************************
+**
+**  test_attr(): Main H5A (attribute) testing routine.
+** 
+****************************************************************/
+void 
+test_attr(void)
+{
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Attributes\n"));
+
+    /* These next two tests use the same file information */
+    test_attr_basic_write();    /* Test basic H5A writing code */
+    test_attr_basic_read();     /* Test basic H5A reading code */
+
+    /* These next two tests use the same file information */
+    test_attr_complex_write();  /* Test complex datatype H5A writing code */
+    test_attr_complex_read();   /* Test complex datatype H5A reading code */
+
+    /* These next four tests use the same file information */
+    test_attr_mult_write();     /* Test H5A writing code for multiple attributes */
+    test_attr_mult_read();      /* Test H5A reading code for multiple attributes */
+    test_attr_iterate();        /* Test H5A iterator code */
+    test_attr_delete();         /* Test H5A code for deleting attributes */
+}   /* test_attr() */
+