Skip to content

Commit 5d4bd30

Browse files
committed
Ensure offset argument in h5tinsert_f is integer(SIZE_T)
1 parent 65f1c4b commit 5d4bd30

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/hdf5_interface.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2383,8 +2383,8 @@ subroutine read_complex_2D_explicit(dset_id, dims, buffer, indep)
23832383
! Insert the 'r' and 'i' identifiers
23842384
call h5tcreate_f(H5T_COMPOUND_F, size_double, dtype_real, hdf5_err)
23852385
call h5tcreate_f(H5T_COMPOUND_F, size_double, dtype_imag, hdf5_err)
2386-
call h5tinsert_f(dtype_real, "r", 0_8, H5T_NATIVE_DOUBLE, hdf5_err)
2387-
call h5tinsert_f(dtype_imag, "i", 0_8, H5T_NATIVE_DOUBLE, hdf5_err)
2386+
call h5tinsert_f(dtype_real, "r", 0_SIZE_T, H5T_NATIVE_DOUBLE, hdf5_err)
2387+
call h5tinsert_f(dtype_imag, "i", 0_SIZE_T, H5T_NATIVE_DOUBLE, hdf5_err)
23882388

23892389
! Set up collective vs. independent I/O
23902390
data_xfer_mode = H5FD_MPIO_COLLECTIVE_F

0 commit comments

Comments
 (0)