diff options
| author | H. Joe Lee <hyoklee@hdfgroup.org> | 2023-09-22 13:45:50 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-09-22 13:45:50 (GMT) |
| commit | d920a45413fc55079d0c829b35bfb9794ae8fe55 (patch) | |
| tree | 803020ac0688baa9eca2b0bc695c6a01dcd27445 | |
| parent | 9d41d478ef69eeac2c471aed248127445ff6daf7 (diff) | |
| download | hdf5-d920a45413fc55079d0c829b35bfb9794ae8fe55.zip hdf5-d920a45413fc55079d0c829b35bfb9794ae8fe55.tar.gz hdf5-d920a45413fc55079d0c829b35bfb9794ae8fe55.tar.bz2 | |
Fix ifx unused variable hdferr warning. (#3568)
| -rw-r--r-- | fortran/src/H5Aff.F90 | 3 | ||||
| -rw-r--r-- | release_docs/RELEASE.txt | 4 |
2 files changed, 7 insertions, 0 deletions
diff --git a/fortran/src/H5Aff.F90 b/fortran/src/H5Aff.F90 index 3cb1191..a55773a 100644 --- a/fortran/src/H5Aff.F90 +++ b/fortran/src/H5Aff.F90 @@ -1131,6 +1131,9 @@ CONTAINS attr_id = INT(H5Aopen_by_idx(loc_id, c_obj_name, INT(idx_type, C_INT), INT(order, C_INT), n, & aapl_id_default, lapl_id_default), HID_T) + hdferr = 0 + IF(attr_id.LT.0) hdferr = -1 + END SUBROUTINE h5aopen_by_idx_f !> diff --git a/release_docs/RELEASE.txt b/release_docs/RELEASE.txt index 985cbf5..fa08895 100644 --- a/release_docs/RELEASE.txt +++ b/release_docs/RELEASE.txt @@ -240,6 +240,10 @@ New Features Fortran Library: ---------------- + + - Fixed an uninitialized error return value for hdferr + to return the error state of the h5aopen_by_idx_f API. + - Added h5pget_vol_cap_flags_f and related Fortran VOL capability definitions. |