diff --git a/fortran/src/H5Aff.F90 b/fortran/src/H5Aff.F90 index 3cb1191b3de..a55773a0c1f 100644 --- a/fortran/src/H5Aff.F90 +++ b/fortran/src/H5Aff.F90 @@ -1131,6 +1131,9 @@ END FUNCTION H5Aopen_by_idx 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 985cbf57e51..fa088951d89 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.