From 6d10fa1ba1fd541f96b8ed30dc99fd1e336713f4 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Wed, 24 Jan 2024 10:19:47 -0600
Subject: [PATCH] fixed BIND name (#3957)

* update H5Ssel_iter_reset_f test
---
 fortran/src/H5Sff.F90       | 2 +-
 fortran/test/tH5Sselect.F90 | 9 ++-------
 2 files changed, 3 insertions(+), 8 deletions(-)

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
diff --git a/fortran/test/tH5Sselect.F90 b/fortran/test/tH5Sselect.F90
index 7b3a0664b71..f216b0eb813 100644
--- a/fortran/test/tH5Sselect.F90
+++ b/fortran/test/tH5Sselect.F90
@@ -431,13 +431,8 @@ SUBROUTINE test_select_iter(cleanup, total_error)
        ENDIF
 
        ! Reset iterator
-       !CALL H5Ssel_iter_reset_f(iter_id, sid, error)
-       !CALL check("H5Ssel_iter_reset_f", error, total_error)
-
-       !off = -99
-       !ilen = -99
-       !CALL H5Ssel_iter_get_seq_list_f(iter_id, SEL_ITER_MAX_SEQ, 1024_size_t * 1024_size_t, nseq, nbytes, off, ilen, error)
-       !CALL check("H5Ssel_iter_get_seq_list_f", error, total_error)
+       CALL H5Ssel_iter_reset_f(iter_id, sid, error)
+       CALL check("H5Ssel_iter_reset_f", error, total_error)
 
        ! Close selection iterator
        CALL H5Ssel_iter_close_f(iter_id, error)