From 11b165825d1eb41606ef909beb72000ad9e5648b Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Wed, 24 Jan 2024 09:17:32 -0600 Subject: [PATCH] fixed BIND name --- fortran/src/H5Sff.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/src/H5Sff.F90 b/fortran/src/H5Sff.F90 index 25b665798c0..e64956d0da3 100644 --- a/fortran/src/H5Sff.F90 +++ b/fortran/src/H5Sff.F90 @@ -1576,7 +1576,7 @@ SUBROUTINE h5ssel_iter_reset_f(sel_iter_id, space_id, hdferr) INTEGER, INTENT(OUT) :: hdferr INTERFACE INTEGER(C_INT) FUNCTION H5Ssel_iter_reset(sel_iter_id, space_id) & - BIND(C,NAME='H5Ssel_iter_close') + BIND(C,NAME='H5Ssel_iter_reset') IMPORT :: HID_T, C_INT IMPLICIT NONE INTEGER(HID_T), VALUE :: sel_iter_id