[svn-r10416] Purpose:

bug fix

Description:
when exiting due to a error condition on the goto out instruction there was an attempt to call
H5Dvlen_reclaim without checking if buf was null

Solution:
checket it

Platforms tested:
linux
solaris
IRIX64
AIX

Misc. update:

2 files changed, 271 insertions, 254 deletions

diff --git a/hl/src/H5DS.c b/hl/src/H5DS.c
index 891bff3..fbff253 100644
--- a/hl/src/H5DS.c
+++ b/hl/src/H5DS.c
@@ -179,7 +179,7 @@ herr_t H5DSattach_scale(hid_t did,
 
  /* get dataset space */
  if ((sid = H5Dget_space(did))<0)
-  goto out;
+  return FAIL;
  
  /* get rank */
  if ((rank=H5Sget_simple_extent_ndims(sid))<0)
@@ -187,11 +187,11 @@ herr_t H5DSattach_scale(hid_t did,
 
  /* close dataset space */
  if (H5Sclose(sid)<0)
-  goto out;
+  return FAIL;
 
  /* parameter range checking */
  if (idx>(unsigned)rank-1)
-  goto out;
+  return FAIL;
 
 /*-------------------------------------------------------------------------
  * two references are created: one to the DS, saved in "DIMENSION_LIST"
@@ -200,11 +200,11 @@ herr_t H5DSattach_scale(hid_t did,
  */
  /* create a reference for the >>DS<< dataset */
  if (H5Rcreate(&ref_to_ds,dsid,".",H5R_OBJECT,-1)<0)
-  goto out;
+  return FAIL;
  
  /* create a reference for the >>data<< dataset */
  if (H5Rcreate(&dsl.ref,did,".",H5R_OBJECT,-1)<0)
-  goto out;
+  return FAIL;
  
  /* try to find the attribute "DIMENSION_LIST" on the >>data<< dataset */
  if ((has_dimlist = H5LT_find_attribute(did,DIMENSION_LIST))<0)
@@ -220,13 +220,13 @@ herr_t H5DSattach_scale(hid_t did,
   dims = (hsize_t*) malloc (1 * sizeof (hsize_t));
 
   if (dims == NULL)
-   goto out;
+   return FAIL;
 
   dims[0] = rank;
 
   /* space for the attribute */
   if ((sid = H5Screate_simple(1,dims,NULL))<0)
-   goto out;
+   return FAIL;
     
   /* create the type for the attribute "DIMENSION_LIST" */
   if ((tid = H5Tvlen_create(H5T_STD_REF_OBJ))<0)
@@ -617,14 +617,14 @@ herr_t H5DSdetach_scale(hid_t did,
  */
  /* try to find the attribute "DIMENSION_LIST" on the >>data<< dataset */
  if ((has_dimlist = H5LT_find_attribute(did,DIMENSION_LIST))<0)
-  goto out;
+  return FAIL;
 
  if (has_dimlist == 0)
-  goto out;
+  return FAIL;
 
  /* get dataset space */
  if ((sid = H5Dget_space(did))<0)
-  goto out;
+  return FAIL;
  
  /* get rank */
  if ((rank=H5Sget_simple_extent_ndims(sid))<0)
@@ -632,7 +632,7 @@ herr_t H5DSdetach_scale(hid_t did,
 
  /* close dataset space */
  if (H5Sclose(sid)<0)
-  goto out;
+  return FAIL;
 
 
 /*-------------------------------------------------------------------------
@@ -642,10 +642,10 @@ herr_t H5DSdetach_scale(hid_t did,
 
  /* try to find the attribute "REFERENCE_LIST" on the >>DS<< dataset */
  if ((has_reflist = H5LT_find_attribute(dsid,REFERENCE_LIST))<0)
-  goto out;
+  return FAIL;
 
  if (has_reflist == 0)
-  goto out;
+  return FAIL;
  
 /*-------------------------------------------------------------------------
  * open "DIMENSION_LIST", and delete the reference
@@ -653,7 +653,7 @@ herr_t H5DSdetach_scale(hid_t did,
  */
  
  if ((aid = H5Aopen_name(did,DIMENSION_LIST))<0)
-  goto out;
+  return FAIL;
  
  if ((tid = H5Aget_type(aid))<0)
   goto out;
@@ -927,7 +927,7 @@ int H5DSget_num_scales(hid_t did,
  int        rank;         /* rank of dataset */
  hvl_t      *buf;         /* VL buffer to store in the attribute */
  H5I_type_t it;           /* ID type */
- int nscales;
+ int        nscales;
 
 /*-------------------------------------------------------------------------
  * parameter checking
@@ -946,7 +946,7 @@ int H5DSget_num_scales(hid_t did,
  */
  /* get dataset space */
  if ((sid = H5Dget_space(did))<0)
-  goto out;
+  return FAIL;
  
  /* get rank */
  if ((rank=H5Sget_simple_extent_ndims(sid))<0)
@@ -958,7 +958,7 @@ int H5DSget_num_scales(hid_t did,
 
  /* DIM range checking */
  if (dim>=(unsigned int )rank)
-  goto out;
+  return FAIL;
 
  /* try to find the attribute "DIMENSION_LIST" on the >>data<< dataset */
  if ((has_dimlist = H5LT_find_attribute(did,DIMENSION_LIST))<0)
@@ -966,7 +966,7 @@ int H5DSget_num_scales(hid_t did,
 
  /* it does not exist */
  if (has_dimlist == 0)
-  goto out;
+  return FAIL;
 
 /*-------------------------------------------------------------------------
  * the attribute exists, open it 
@@ -1075,7 +1075,7 @@ herr_t H5DSset_label(hid_t did,
 
  /* get dataset space */
  if ((sid = H5Dget_space(did))<0)
-  goto out;
+  return FAIL;
  
  /* get rank */
  if ((rank=H5Sget_simple_extent_ndims(sid))<0)
@@ -1252,7 +1252,7 @@ ssize_t H5DSget_label(hid_t did,
 
  /* get dataset space */
  if ((sid = H5Dget_space(did))<0)
-  goto out;
+  return FAIL;
  
  /* get rank */
  if ((rank=H5Sget_simple_extent_ndims(sid))<0)
@@ -1491,7 +1491,6 @@ htri_t H5DSis_scale(hid_t did)
  if (H5I_DATASET!=it)
   return FAIL;
 
-
  /* try to find the attribute "CLASS" on the dataset */
  if ((has_class = H5LT_find_attribute(did,"CLASS"))<0)
   return FAIL;
@@ -1611,11 +1610,11 @@ herr_t H5DSiterate_scales(hid_t did,
 
  /* get the number of scales assotiated with this DIM */
  if ((nscales = H5DSget_num_scales(did,dim))<0)
-  goto out;
+  return FAIL;
 
  /* get dataset space */
  if ((sid = H5Dget_space(did))<0)
-  goto out;
+  return FAIL;
  
  /* get rank */
  if ((rank=H5Sget_simple_extent_ndims(sid))<0)
@@ -1627,7 +1626,7 @@ herr_t H5DSiterate_scales(hid_t did,
 
  /* try to find the attribute "DIMENSION_LIST" on the >>data<< dataset */
  if ((has_dimlist = H5LT_find_attribute(did,DIMENSION_LIST))<0)
-  goto out;
+  return FAIL;
 
  if (has_dimlist == 0)
   return SUCCESS;
@@ -1711,13 +1710,15 @@ herr_t H5DSiterate_scales(hid_t did,
       
 out:
  H5E_BEGIN_TRY {
-  H5Dvlen_reclaim(tid,sid,H5P_DEFAULT,buf);
+  if (buf)
+  {
+   H5Dvlen_reclaim(tid,sid,H5P_DEFAULT,buf);
+   free(buf);
+  }
   H5Sclose(sid);
   H5Aclose(aid);
   H5Tclose(tid);
  } H5E_END_TRY;
- if (buf)
-  free(buf);
  return FAIL;
 } 
 
@@ -1801,7 +1802,7 @@ htri_t H5DSis_attached(hid_t did,
 
  /* get dataset space */
  if ((sid = H5Dget_space(did))<0)
-  goto out;
+  return FAIL;
  
  /* get rank */
  if ((rank=H5Sget_simple_extent_ndims(sid))<0)
diff --git a/hl/test/test_ds.c b/hl/test/test_ds.c
index e6da329..b819186 100644
--- a/hl/test/test_ds.c
+++ b/hl/test/test_ds.c
@@ -841,7 +841,6 @@ static int test_simple(void)
  if (H5Dclose(did)<0)
   goto out;
 
-
 /*-------------------------------------------------------------------------
  * create 10 datasets: 5 "data" dataset and 5 dimension scales 
  *-------------------------------------------------------------------------
@@ -954,6 +953,53 @@ static int test_simple(void)
  PASSED();
 
 
+/*-------------------------------------------------------------------------
+ * create a dataset and attach only to 1 dimension
+ *-------------------------------------------------------------------------
+ */  
+
+ TESTING2("attach only to 1 dimension");
+ 
+ /* make a dataset */
+ if (H5LTmake_dataset_int(fid,"dset_e",rank,dims,NULL)<0)
+  goto out;
+
+ /* make a scale */
+ if (H5LTmake_dataset_int(fid,"ds_e_1",rankds,s1_dim,NULL)<0)
+  goto out;
+
+ /* attach the DS to dimension 1 */
+ if ((did = H5Dopen(fid,"dset_e"))<0)
+  goto out;
+ if ((dsid = H5Dopen(fid,"ds_e_1"))<0)
+  goto out;
+ if (H5DSattach_scale(did,dsid,DIM1)<0)
+  goto out;
+ if (H5DSis_attached(did,dsid,DIM1)<=0)
+  goto out;
+
+
+ /* try to detach all dimensions. for dimensions 0 and 2, it is an error */
+ for (i=0; i<rank; i++) 
+ {
+  if ( i==1 )
+  {
+   if(H5DSdetach_scale(did,dsid,i)<0)
+    goto out;
+  }
+  else
+  {
+   if(H5DSdetach_scale(did,dsid,i)!=FAIL)
+    goto out;
+  }
+ }
+
+ if (H5Dclose(dsid)<0)
+  goto out;
+ if (H5Dclose(did)<0)
+  goto out;
+ 
+ PASSED();
 
 
 /*-------------------------------------------------------------------------
@@ -1280,35 +1326,35 @@ static int test_simple(void)
  * create 3 datasets: 1 "data" dataset and dimension scales (some are empty)
  *-------------------------------------------------------------------------
  */  
- if (H5LTmake_dataset_int(fid,"dset_e",rank,dims,buf)<0)
+ if (H5LTmake_dataset_int(fid,"dset_f",rank,dims,buf)<0)
   goto out;
- if (H5LTmake_dataset_int(fid,"ds_e_1",rankds,s1_dim,NULL)<0)
+ if (H5LTmake_dataset_int(fid,"ds_f_1",rankds,s1_dim,NULL)<0)
   goto out;
- if (H5LTmake_dataset_int(fid,"ds_e_11",rankds,s1_dim,s1_wbuf)<0)
+ if (H5LTmake_dataset_int(fid,"ds_f_11",rankds,s1_dim,s1_wbuf)<0)
   goto out;
- if (H5LTmake_dataset_int(fid,"ds_e_2",rankds,s2_dim,NULL)<0)
+ if (H5LTmake_dataset_int(fid,"ds_f_2",rankds,s2_dim,NULL)<0)
   goto out;
 
 /*-------------------------------------------------------------------------
  * attach them
  *-------------------------------------------------------------------------
  */  
- if ((did = H5Dopen(fid,"dset_e"))<0)
+ if ((did = H5Dopen(fid,"dset_f"))<0)
   goto out;
 
- if ((dsid = H5Dopen(fid,"ds_e_1"))<0)
+ if ((dsid = H5Dopen(fid,"ds_f_1"))<0)
   goto out;
  if (H5DSattach_scale(did,dsid,DIM0)<0)
   goto out;
  if (H5Dclose(dsid)<0)
   goto out;
- if ((dsid = H5Dopen(fid,"ds_e_11"))<0)
+ if ((dsid = H5Dopen(fid,"ds_f_11"))<0)
   goto out;
  if (H5DSattach_scale(did,dsid,DIM0)<0)
   goto out;
  if (H5Dclose(dsid)<0)
   goto out;
- if ((dsid = H5Dopen(fid,"ds_e_2"))<0)
+ if ((dsid = H5Dopen(fid,"ds_f_2"))<0)
   goto out;
  if (H5DSattach_scale(did,dsid,DIM1)<0)
   goto out;
@@ -1322,8 +1368,8 @@ static int test_simple(void)
  * verify match
  *-------------------------------------------------------------------------
  */  
- /* get the dataset id for "dset_e" */
- if ((did = H5Dopen(fid,"dset_e"))<0)
+ /* get the dataset id for "dset_f" */
+ if ((did = H5Dopen(fid,"dset_f"))<0)
   goto out;
 
  /* get dataset space */
@@ -1556,7 +1602,6 @@ static herr_t match_dim_scale(hid_t did, unsigned dim, hid_t dsid, void *visitor
  int       ret = 0;              /* define a default zero value for return. This will cause the iterator to continue */
  hid_t     sid;                  /* space ID */
  hssize_t  nelmts;               /* size of a dimension scale array */
- int       rank;                 /* rank of dataset */
  hsize_t   dims[H5S_MAX_RANK];   /* dimensions of dataset */
  hsize_t   storage_size;
 
@@ -1568,10 +1613,6 @@ static herr_t match_dim_scale(hid_t did, unsigned dim, hid_t dsid, void *visitor
  /* get dataset space */
  if ((sid = H5Dget_space(did))<0)
   goto out;
- 
- /* get rank */
- if ((rank=H5Sget_simple_extent_ndims(sid))<0)
-  goto out;
 
  /* get dimensions of dataset */
  if (H5Sget_simple_extent_dims(sid,dims,NULL)<0)
@@ -1603,8 +1644,7 @@ static herr_t match_dim_scale(hid_t did, unsigned dim, hid_t dsid, void *visitor
   ret = 1;
 
  /* if the scale is empty assume it cannot be used */
- if ((storage_size=H5Dget_storage_size(dsid))<0)
-  goto out;
+ storage_size=H5Dget_storage_size(dsid);
 
  if (storage_size==0)
   ret = 0;
@@ -1651,213 +1691,6 @@ static herr_t op_bogus(hid_t dset, unsigned dim, hid_t scale_id, void *visitor_d
 
 
 
-/*-------------------------------------------------------------------------
- * test several rank and types
- *-------------------------------------------------------------------------
- */
-
-static int test_rank(void)
-{
- hid_t   fid;                                              /* file ID */
- hid_t   did;                                              /* dataset ID */
- hid_t   dsid;                                             /* scale ID */
- int     rank     = 3;                                     /* rank of data dataset */
- hsize_t dims[3]  = {DIM1_SIZE,DIM2_SIZE,DIM3_SIZE};       /* size of data dataset */
- char    name[30];                                         /* dataset name buffer */
- char    names[30];                                        /* dataset scale name buffer */
- char    namel[30];                                        /* dataset label name buffer */
- int     i;
-  
- printf("Testing ranks\n");
-
-/*-------------------------------------------------------------------------
- * create a file, a dataset, scales
- *-------------------------------------------------------------------------
- */  
-
- /* create a file using default properties */
- if ((fid=H5Fcreate("test_ds3.h5",H5F_ACC_TRUNC,H5P_DEFAULT,H5P_DEFAULT))<0)
-  goto out;
- 
- /* make a dataset */
- if (H5LTmake_dataset_int(fid,"dset_a",rank,dims,NULL)<0)
-  goto out;
-
- /* make scale datasets  */
- for (i=0; i<rank; i++) 
- {
-  sprintf(name,"ds_a_%d",i);
-  if (H5LTmake_dataset_int(fid,name,(rank-i),&dims[i],NULL)<0)
-   goto out;
- }
-
- 
-/*-------------------------------------------------------------------------
- * attach 
- *-------------------------------------------------------------------------
- */ 
-
- TESTING2("attach");
- 
- if ((did = H5Dopen(fid,"dset_a"))<0)
-  goto out;
- 
- for (i=0; i<rank; i++) 
- {
-  sprintf(name,"ds_a_%d",i);
-  if((dsid = H5Dopen(fid,name))<0)
-   goto out;
-  if(H5DSattach_scale(did,dsid,i)<0)
-   goto out;
-  if (H5DSis_attached(did,dsid,i)<=0)
-   goto out;
-  if (H5Dclose(dsid)<0)
-   goto out;
- }
- 
- if (H5Dclose(did)<0)
-  goto out;
- 
- PASSED();
-
- 
-/*-------------------------------------------------------------------------
- * detach 
- *-------------------------------------------------------------------------
- */ 
-
- TESTING2("detach");
- 
- if ((did = H5Dopen(fid,"dset_a"))<0)
-  goto out;
- 
- for (i=0; i<rank; i++) 
- {
-  sprintf(name,"ds_a_%d",i);
-  if((dsid = H5Dopen(fid,name))<0)
-   goto out;
-  if(H5DSdetach_scale(did,dsid,i)<0)
-   goto out;
-  if (H5DSis_attached(did,dsid,i)!=0)
-   goto out;
-  if (H5Dclose(dsid)<0)
-   goto out;
- }
- 
- if (H5Dclose(did)<0)
-  goto out;
- 
- PASSED();
-
-
-/*-------------------------------------------------------------------------
- * attach, set, get names, labels
- *-------------------------------------------------------------------------
- */ 
-
- TESTING2("attach, set, get names, labels");
- 
- if ((did = H5Dopen(fid,"dset_a"))<0)
-  goto out;
- 
- for (i=0; i<rank; i++) 
- {
-  sprintf(name,"ds_a_%d",i);
-  if((dsid = H5Dopen(fid,name))<0)
-   goto out;
-  if (H5DSset_scale(dsid,name)<0)
-   goto out;
-  if(H5DSattach_scale(did,dsid,i)<0)
-   goto out;
-  if (H5DSis_attached(did,dsid,i)<=0)
-   goto out;
-  if (H5DSget_scale_name(dsid,names,sizeof(names))<0)
-   goto out;
-  if (H5Dclose(dsid)<0)
-   goto out;
-  if (H5DSset_label(did,i,name)<0)
-   goto out;
-  if (H5DSget_label(did,i,namel,sizeof(namel))<0)
-   goto out;
-  if (strcmp(name,names)!=0)
-   goto out;
-  if (strcmp(name,namel)!=0)
-   goto out;
- }
- 
- if (H5Dclose(did)<0)
-  goto out;
- 
- PASSED();
-
-
-/*-------------------------------------------------------------------------
- * create a dataset and attach only to 1 dimension
- *-------------------------------------------------------------------------
- */  
-
- TESTING2("attach only to 1 dimension");
- 
- /* make a dataset */
- if (H5LTmake_dataset_int(fid,"dset_b",rank,dims,NULL)<0)
-  goto out;
-
- if ((did = H5Dopen(fid,"dset_b"))<0)
-  goto out;
-
- /* attach a DS to dimension 1 */
- sprintf(name,"ds_a_%d",1);
- if((dsid = H5Dopen(fid,name))<0)
-  goto out;
- if(H5DSattach_scale(did,dsid,DIM1)<0)
-  goto out;
- if (H5DSis_attached(did,dsid,DIM1)<=0)
-  goto out;
-
-
- /* try to detach all dimensions. for dimensions 0 and 2, it is an error */
- for (i=0; i<rank; i++) 
- {
-  if ( i==1 )
-  {
-   if(H5DSdetach_scale(did,dsid,i)<0)
-    goto out;
-  }
-  else
-  {
-   if(H5DSdetach_scale(did,dsid,i)!=FAIL)
-    goto out;
-  }
- }
-
- if (H5Dclose(dsid)<0)
-  goto out;
- if (H5Dclose(did)<0)
-  goto out;
- 
- PASSED();
-
-
-
-/*-------------------------------------------------------------------------
- * close 
- *-------------------------------------------------------------------------
- */ 
- if (H5Fclose(fid)<0)
-  goto out;
-
- return 0;
-  
- /* error zone, gracefully close */
-out:
- H5E_BEGIN_TRY {
-  H5Dclose(did);
-  H5Dclose(dsid);
-  H5Fclose(fid);
- } H5E_END_TRY;
- H5_FAILED();
- return FAIL;
-}
 
 
 
@@ -1873,7 +1706,6 @@ static int test_errors(void)
  int     rankds   = 1;                                     /* rank of DS dataset */
  hsize_t dims[RANK]  = {DIM1_SIZE,DIM2_SIZE};              /* size of data dataset */
  hsize_t s1_dim[1]  = {DIM1_SIZE};                         /* size of DS 1 dataset */
- hsize_t s2_dim[1]  = {DIM2_SIZE};                         /* size of DS 2 dataset */
  hid_t   did;                                              /* dataset ID */
  hid_t   dsid;                                             /* scale ID */
  hid_t   gid;                                              /* group ID */
@@ -2426,3 +2258,187 @@ out:
  return FAIL;
 }
 
+
+/*-------------------------------------------------------------------------
+ * test several rank and types
+ *-------------------------------------------------------------------------
+ */
+
+static int test_rank(void)
+{
+ hid_t   fid;                                              /* file ID */
+ hid_t   did;                                              /* dataset ID */
+ hid_t   dsid;                                             /* scale ID */
+ hid_t   sid;                                              /* space ID */
+ int     rank     = 3;                                     /* rank of data dataset */
+ hsize_t dims[3]  = {DIM1_SIZE,DIM2_SIZE,DIM3_SIZE};       /* size of data dataset */
+ char    name[30];                                         /* dataset name buffer */
+ char    names[30];                                        /* dataset scale name buffer */
+ char    namel[30];                                        /* dataset label name buffer */
+ int     i;
+  
+ printf("Testing ranks\n");
+
+/*-------------------------------------------------------------------------
+ * create a file, a dataset, scales
+ *-------------------------------------------------------------------------
+ */  
+
+ /* create a file using default properties */
+ if ((fid=H5Fcreate("test_ds3.h5",H5F_ACC_TRUNC,H5P_DEFAULT,H5P_DEFAULT))<0)
+  goto out;
+ 
+ /* make a dataset */
+ if (H5LTmake_dataset_int(fid,"dset_a",rank,dims,NULL)<0)
+  goto out;
+
+ /* make scale datasets  */
+ for (i=0; i<rank; i++) 
+ {
+  sprintf(name,"ds_a_%d",i);
+  if (H5LTmake_dataset_int(fid,name,(rank-i),&dims[i],NULL)<0)
+   goto out;
+ }
+
+ 
+/*-------------------------------------------------------------------------
+ * attach 
+ *-------------------------------------------------------------------------
+ */ 
+
+ TESTING2("attach");
+ 
+ if ((did = H5Dopen(fid,"dset_a"))<0)
+  goto out;
+ 
+ for (i=0; i<rank; i++) 
+ {
+  sprintf(name,"ds_a_%d",i);
+  if((dsid = H5Dopen(fid,name))<0)
+   goto out;
+  if(H5DSattach_scale(did,dsid,i)<0)
+   goto out;
+  if (H5DSis_attached(did,dsid,i)<=0)
+   goto out;
+  if (H5Dclose(dsid)<0)
+   goto out;
+ }
+ 
+ if (H5Dclose(did)<0)
+  goto out;
+ 
+ PASSED();
+
+ 
+/*-------------------------------------------------------------------------
+ * detach 
+ *-------------------------------------------------------------------------
+ */ 
+
+ TESTING2("detach");
+ 
+ if ((did = H5Dopen(fid,"dset_a"))<0)
+  goto out;
+ 
+ for (i=0; i<rank; i++) 
+ {
+  sprintf(name,"ds_a_%d",i);
+  if((dsid = H5Dopen(fid,name))<0)
+   goto out;
+  if(H5DSdetach_scale(did,dsid,i)<0)
+   goto out;
+  if (H5DSis_attached(did,dsid,i)!=0)
+   goto out;
+  if (H5Dclose(dsid)<0)
+   goto out;
+ }
+ 
+ if (H5Dclose(did)<0)
+  goto out;
+ 
+ PASSED();
+
+
+/*-------------------------------------------------------------------------
+ * attach, set, get names, labels
+ *-------------------------------------------------------------------------
+ */ 
+
+ TESTING2("attach, set, get names, labels");
+ 
+ if ((did = H5Dopen(fid,"dset_a"))<0)
+  goto out;
+ 
+ for (i=0; i<rank; i++) 
+ {
+  sprintf(name,"ds_a_%d",i);
+  if((dsid = H5Dopen(fid,name))<0)
+   goto out;
+  if (H5DSset_scale(dsid,name)<0)
+   goto out;
+  if(H5DSattach_scale(did,dsid,i)<0)
+   goto out;
+  if (H5DSis_attached(did,dsid,i)<=0)
+   goto out;
+  if (H5DSget_scale_name(dsid,names,sizeof(names))<0)
+   goto out;
+  if (H5Dclose(dsid)<0)
+   goto out;
+  if (H5DSset_label(did,i,name)<0)
+   goto out;
+  if (H5DSget_label(did,i,namel,sizeof(namel))<0)
+   goto out;
+  if (strcmp(name,names)!=0)
+   goto out;
+  if (strcmp(name,namel)!=0)
+   goto out;
+ }
+ 
+ if (H5Dclose(did)<0)
+  goto out;
+ 
+ PASSED();
+
+
+
+
+
+/*-------------------------------------------------------------------------
+ * attach a scalar scale 
+ *-------------------------------------------------------------------------
+ */ 
+
+ TESTING2("attach a scalar scale");
+   
+ if ((sid = H5Screate(H5S_SCALAR))<0)
+  goto out;
+ 
+ if (H5Sclose(sid)<0)
+  goto out;
+ 
+ PASSED();
+
+
+
+
+
+
+/*-------------------------------------------------------------------------
+ * close 
+ *-------------------------------------------------------------------------
+ */ 
+ if (H5Fclose(fid)<0)
+  goto out;
+
+ return 0;
+  
+ /* error zone, gracefully close */
+out:
+ H5E_BEGIN_TRY {
+  H5Dclose(did);
+  H5Dclose(dsid);
+  H5Fclose(fid);
+ } H5E_END_TRY;
+ H5_FAILED();
+ return FAIL;
+}