diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-10-23 19:55:47 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-10-23 19:55:47 (GMT) |
| commit | da3b7ff945c931878df85bca49b9c21a89e5a824 (patch) | |
| tree | 19db8b93115a93deaac62cc2ed9875c100d8c3a2 /fortran/test | |
| parent | a6d1bda6d2da6121a2d8f66cd7a1e0d2cafe2da6 (diff) | |
| download | hdf5-da3b7ff945c931878df85bca49b9c21a89e5a824.zip hdf5-da3b7ff945c931878df85bca49b9c21a89e5a824.tar.gz hdf5-da3b7ff945c931878df85bca49b9c21a89e5a824.tar.bz2 | |
Add h5pget_actual_selection_io_mode fortran wrapper (#3746)
* added h5pget_actual_selection_io_mode_f test
* added tests for h5pget_actual_selection_io_mode_f
* fixed int_f type conversion
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5P.F90 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/fortran/test/tH5P.F90 b/fortran/test/tH5P.F90 index c73016b..78d665f 100644 --- a/fortran/test/tH5P.F90 +++ b/fortran/test/tH5P.F90 @@ -869,6 +869,7 @@ SUBROUTINE test_in_place_conversion(cleanup, total_error) REAL(KIND=C_DOUBLE), DIMENSION(1:array_len) :: wbuf_d_org REAL(KIND=C_FLOAT), DIMENSION(1:array_len), TARGET :: rbuf INTEGER :: i + INTEGER :: actual_selection_io_mode TYPE(C_PTR) :: f_ptr ! create the data @@ -919,6 +920,10 @@ SUBROUTINE test_in_place_conversion(cleanup, total_error) ! Should not be equal for in-place buffer use CALL VERIFY("h5dwrite_f -- in-place", wbuf_d(1), wbuf_d_org(1), total_error, .FALSE.) + CALL h5pget_actual_selection_io_mode_f(plist_id, actual_selection_io_mode, error) + CALL check("h5pget_actual_selection_io_mode_f", error, total_error) + CALL VERIFY("h5pget_actual_selection_io_mode_f", actual_selection_io_mode, H5D_SCALAR_IO_F, total_error) + f_ptr = C_LOC(rbuf) CALL h5dread_f(dset_id, h5kind_to_type(KIND(rbuf(1)), H5_REAL_KIND), f_ptr, error) CALL check("h5dread_f", error, total_error) |