fixed BIND name

HDFGroup · Jan 24, 2024 · 11b1658 · 11b1658
1 parent f86fe61
commit 11b1658
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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