update H5Ssel_iter_reset_f test

HDFGroup · Jan 24, 2024 · 0658d2a · 0658d2a
1 parent 11b1658
commit 0658d2a
Showing 1 changed file with 2 additions and 7 deletions.
diff --git 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)