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/testpar | |
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/testpar')
-rw-r--r-- | fortran/testpar/hyper.F90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/fortran/testpar/hyper.F90 b/fortran/testpar/hyper.F90 index edd93cf..ec3a657 100644 --- a/fortran/testpar/hyper.F90 +++ b/fortran/testpar/hyper.F90 @@ -55,6 +55,7 @@ SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors) INTEGER :: local_no_collective_cause INTEGER :: global_no_collective_cause INTEGER :: no_selection_io_cause + INTEGER :: actual_selection_io_mode ! ! initialize the array data between the processes (3) @@ -236,6 +237,20 @@ SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors) CALL h5dwrite_f(dset_id,H5T_NATIVE_INTEGER,wbuf,dims,hdferror,file_space_id=fspace_id,mem_space_id=mspace_id,xfer_prp=dxpl_id) CALL check("h5dwrite_f", hdferror, nerrors) + CALL h5pget_actual_selection_io_mode_f(dxpl_id, actual_selection_io_mode, hdferror) + CALL check("h5pget_actual_selection_io_mode_f", hdferror, nerrors) + IF(do_collective)THEN + IF(actual_selection_io_mode .NE. H5D_SELECTION_IO_F)THEN + PRINT*, "Incorrect actual selection io mode" + nerrors = nerrors + 1 + ENDIF + ELSE + IF(actual_selection_io_mode .NE. IOR(H5D_SELECTION_IO_F, H5D_SCALAR_IO_F))THEN + PRINT*, "Incorrect actual selection io mode" + nerrors = nerrors + 1 + ENDIF + ENDIF + ! Check h5pget_mpio_actual_io_mode_f function CALL h5pget_mpio_actual_io_mode_f(dxpl_id, actual_io_mode, hdferror) CALL check("h5pget_mpio_actual_io_mode_f", hdferror, nerrors) |