diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2024-01-24 16:19:47 (GMT) |
|---|---|---|
| committer | Larry Knox <lrknox@hdfgroup.org> | 2024-02-14 21:25:45 (GMT) |
| commit | 6d10fa1ba1fd541f96b8ed30dc99fd1e336713f4 (patch) | |
| tree | f7caf3919391d9a08f8ef195615b45725250b0d1 /fortran/test | |
| parent | bafe24b6c3f19e47bdcca0e7995bdb989e57b4d1 (diff) | |
| download | hdf5-6d10fa1ba1fd541f96b8ed30dc99fd1e336713f4.zip hdf5-6d10fa1ba1fd541f96b8ed30dc99fd1e336713f4.tar.gz hdf5-6d10fa1ba1fd541f96b8ed30dc99fd1e336713f4.tar.bz2 | |
fixed BIND name (#3957)
* update H5Ssel_iter_reset_f test
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5Sselect.F90 | 9 |
1 files changed, 2 insertions, 7 deletions
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) |