diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2024-01-24 16:19:47 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2024-01-24 16:19:47 (GMT) |
commit | 424f3803ea032ff7859ce9e31986446cd4980d52 (patch) | |
tree | 153b99781575da84b0e89f630308f248b3b45662 /fortran | |
parent | f86fe61c7f6fa43cc16d555f9c925e43baa3de8f (diff) | |
download | hdf5-424f3803ea032ff7859ce9e31986446cd4980d52.zip hdf5-424f3803ea032ff7859ce9e31986446cd4980d52.tar.gz hdf5-424f3803ea032ff7859ce9e31986446cd4980d52.tar.bz2 |
fixed BIND name (#3957)
* update H5Ssel_iter_reset_f test
Diffstat (limited to 'fortran')
-rw-r--r-- | fortran/src/H5Sff.F90 | 2 | ||||
-rw-r--r-- | 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 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) |