From 0658d2a815e567983f115a0b076529a83716e3f4 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Wed, 24 Jan 2024 09:43:28 -0600 Subject: [PATCH] update H5Ssel_iter_reset_f test --- fortran/test/tH5Sselect.F90 | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) 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)