From d920a45413fc55079d0c829b35bfb9794ae8fe55 Mon Sep 17 00:00:00 2001
From: "H. Joe Lee" <hyoklee@hdfgroup.org>
Date: Fri, 22 Sep 2023 08:45:50 -0500
Subject: Fix ifx unused variable hdferr warning. (#3568)

---
 fortran/src/H5Aff.F90    | 3 +++
 release_docs/RELEASE.txt | 4 ++++
 2 files changed, 7 insertions(+)

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.
 
-- 
cgit v0.12