diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2021-02-04 13:17:49 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-02-04 13:17:49 (GMT) |
| commit | a06693be21d93a2b374b013dfc3e845b4e274a58 (patch) | |
| tree | 10994bcfb3dc2465176ec2dd82b86c24595d7438 /hl | |
| parent | c55ac8ab7126f101bf704a54824c0a55f410e105 (diff) | |
| download | hdf5-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.c | 4 | ||||
| -rw-r--r-- | hl/fortran/examples/ex_ds1.f90 | 3 |
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) |