diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-09-14 14:51:39 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-09-14 14:51:39 (GMT) |
commit | 75ba9ec7a695a334ac390911700b488da5b70fef (patch) | |
tree | 78a8f5f77778a3f3c871ea2c8fe73080afd8378e /fortran/testpar/hyper.F90 | |
parent | f2a284dc80428bd7736577b83c896c3804de8ede (diff) | |
download | hdf5-75ba9ec7a695a334ac390911700b488da5b70fef.zip hdf5-75ba9ec7a695a334ac390911700b488da5b70fef.tar.gz hdf5-75ba9ec7a695a334ac390911700b488da5b70fef.tar.bz2 |
removed C_INT32_T from Fortran APIs (#3537)
Diffstat (limited to 'fortran/testpar/hyper.F90')
-rw-r--r-- | fortran/testpar/hyper.F90 | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/fortran/testpar/hyper.F90 b/fortran/testpar/hyper.F90 index 2120f48..edd93cf 100644 --- a/fortran/testpar/hyper.F90 +++ b/fortran/testpar/hyper.F90 @@ -52,9 +52,9 @@ SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors) LOGICAL :: is_coll LOGICAL :: is_coll_true = .TRUE. - INTEGER(C_INT32_T) :: local_no_collective_cause - INTEGER(C_INT32_T) :: global_no_collective_cause - INTEGER(C_INT32_T) :: no_selection_io_cause + INTEGER :: local_no_collective_cause + INTEGER :: global_no_collective_cause + INTEGER :: no_selection_io_cause ! ! initialize the array data between the processes (3) @@ -275,6 +275,13 @@ 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) + ! Verify bitwise operations are correct + + IF( IOR(H5D_MPIO_DATATYPE_CONVERSION_F,H5D_MPIO_DATA_TRANSFORMS_F).NE.6)THEN + PRINT*, "Incorrect bitwise operations for Fortran defined constants" + nerrors = nerrors + 1 + ENDIF + CALL h5pget_no_selection_io_cause_f(dxpl_id, no_selection_io_cause, hdferror) CALL check("h5pget_no_selection_io_cause_f", hdferror, nerrors) |