summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/src/H5Sff.F902
-rw-r--r--fortran/test/tH5Sselect.F909
2 files changed, 3 insertions, 8 deletions
diff --git a/fortran/src/H5Sff.F90 b/fortran/src/H5Sff.F90
index 25b6657..e64956d 100644
--- a/fortran/src/H5Sff.F90
+++ b/fortran/src/H5Sff.F90
@@ -1576,7 +1576,7 @@ CONTAINS
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 7b3a066..f216b0e 100644
--- a/fortran/test/tH5Sselect.F90
+++ b/fortran/test/tH5Sselect.F90
@@ -431,13 +431,8 @@ CONTAINS
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)