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 /fortran | |
parent | 9d41d478ef69eeac2c471aed248127445ff6daf7 (diff) | |
download | hdf5-d920a45413fc55079d0c829b35bfb9794ae8fe55.zip hdf5-d920a45413fc55079d0c829b35bfb9794ae8fe55.tar.gz hdf5-d920a45413fc55079d0c829b35bfb9794ae8fe55.tar.bz2 |
Fix ifx unused variable hdferr warning. (#3568)
Diffstat (limited to 'fortran')
-rw-r--r-- | fortran/src/H5Aff.F90 | 3 |
1 files changed, 3 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 !> |