summaryrefslogtreecommitdiffstats
path: root/hl
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2021-02-04 13:17:49 (GMT)
committerGitHub <noreply@github.com>2021-02-04 13:17:49 (GMT)
commita06693be21d93a2b374b013dfc3e845b4e274a58 (patch)
tree10994bcfb3dc2465176ec2dd82b86c24595d7438 /hl
parentc55ac8ab7126f101bf704a54824c0a55f410e105 (diff)
downloadhdf5-a06693be21d93a2b374b013dfc3e845b4e274a58.zip
hdf5-a06693be21d93a2b374b013dfc3e845b4e274a58.tar.gz
hdf5-a06693be21d93a2b374b013dfc3e845b4e274a58.tar.bz2
Fix DS examples (#307)
* fixed missed closing of a dataset * fixed missed closing of a dataset
Diffstat (limited to 'hl')
-rw-r--r--hl/examples/ex_ds1.c4
-rw-r--r--hl/fortran/examples/ex_ds1.f903
2 files changed, 5 insertions, 2 deletions
diff --git a/hl/examples/ex_ds1.c b/hl/examples/ex_ds1.c
index af8b581..09f398b 100644
--- 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
index b31ac8e..3e0048a 100644
--- 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)