Fix DS examples (#307)

* fixed missed closing of a dataset * fixed missed closing of a dataset
HDFGroup · Feb 4, 2021 · a06693b · a06693b
1 parent c55ac8a
commit a06693b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/hl/examples/ex_ds1.c b/hl/examples/ex_ds1.c
@@ -91,9 +91,11 @@ main(void)
     if (H5DSattach_scale(did, dsid, DIM1) < 0)
         goto out;
 
-    /* close DS id */
+    /* close DS ids */
     if (H5Dclose(dsid) < 0)
         goto out;
+    if (H5Dclose(did) < 0)
+        goto out;
 
     /* close file */
     H5Fclose(fid);

diff --git a/hl/fortran/examples/ex_ds1.f90 b/hl/fortran/examples/ex_ds1.f90
@@ -180,8 +180,9 @@ PROGRAM example_ds
 
   WRITE(*,'(/,5X,A,I0,2A,/)') 'Dimension Scale Label for dimension ', DIM2, ' is ... ', label(1:label_len)
 
- ! close DS id
+ ! close DS ids
   CALL H5Dclose_f(dsid, err)
+  CALL H5Dclose_f(did, err)
 
  ! close file
   CALL H5Fclose_f(fid, err)