summaryrefslogtreecommitdiffstats
path: root/hl/fortran
diff options
context:
space:
mode:
authorAllen Byrne <50328838+byrnHDF@users.noreply.github.com>2021-02-17 14:55:42 (GMT)
committerGitHub <noreply@github.com>2021-02-17 14:55:42 (GMT)
commit7cf4913baf1fade3b6095c6f120c882246f94e94 (patch)
tree8150f446e97010ac2daa1581a14f66769dfb7908 /hl/fortran
parent679bc678cf139232499d90b84e4c575af7d42261 (diff)
downloadhdf5-7cf4913baf1fade3b6095c6f120c882246f94e94.zip
hdf5-7cf4913baf1fade3b6095c6f120c882246f94e94.tar.gz
hdf5-7cf4913baf1fade3b6095c6f120c882246f94e94.tar.bz2
1 10 merge recent changes from develop (#345)
* HDFFV-10865 - merge from dev, HDFArray perf fix. * Remove duplicate setting * Whitespace changes after clang format * Undo version 11 clang format changes * Merge CMake changes from develop * test testing script merge from develop * Update supported platforms * PR#3 merge from develop * Merge gcc 10 diagnostics option from develop * Merge #318 OSX changes from develop * Merge small changes from develop
Diffstat (limited to 'hl/fortran')
-rw-r--r--hl/fortran/examples/ex_ds1.f903
1 files changed, 2 insertions, 1 deletions
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)