Fix ifx unused variable hdferr warning. (#3568)

This commit is contained in:
H. Joe Lee 2023-09-22 08:45:50 -05:00 committed by GitHub
parent 9d41d478ef
commit d920a45413
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 7 additions and 0 deletions

View File

@ -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
!>

View File

@ -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.