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/test | |
| 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/test')
| -rw-r--r-- | fortran/test/tH5D.F90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fortran/test/tH5D.F90 b/fortran/test/tH5D.F90 index 328141d..8c1484f 100644 --- a/fortran/test/tH5D.F90 +++ b/fortran/test/tH5D.F90 @@ -1026,7 +1026,7 @@ CONTAINS INTEGER :: i, j, n INTEGER :: error TYPE(C_PTR) :: f_ptr - INTEGER(C_int32_t) :: filters + INTEGER :: filters INTEGER(SIZE_T) :: sizeINT INTEGER(HID_T) :: dxpl @@ -1081,12 +1081,12 @@ CONTAINS f_ptr = C_LOC(wdata1) offset(1:2) = (/0, 0/) - CALL H5Dwrite_chunk_f(dset_id, 0_C_INT32_T, offset, CHUNK0 * CHUNK1 * sizeINT, f_ptr, error) + CALL H5Dwrite_chunk_f(dset_id, 0, offset, CHUNK0 * CHUNK1 * sizeINT, f_ptr, error) CALL check("h5dwrite_f",error,total_error) f_ptr = C_LOC(wdata2) offset(1:2) = (/0, 16/) - CALL H5Dwrite_chunk_f(dset_id, 0_C_INT32_T, offset, CHUNK0 * CHUNK1 * sizeINT, f_ptr, error, dxpl) + CALL H5Dwrite_chunk_f(dset_id, 0, offset, CHUNK0 * CHUNK1 * sizeINT, f_ptr, error, dxpl) CALL check("h5dwrite_f",error,total_error) CALL h5dclose_f(dset_id, error) @@ -1126,7 +1126,7 @@ CONTAINS ENDDO ENDDO - CALL VERIFY("H5Dread_chunk_f",filters, 0_C_INT32_T, total_error) + CALL VERIFY("H5Dread_chunk_f",filters, 0, total_error) f_ptr = C_LOC(rdata2) offset(1:2) = (/0, 16/) @@ -1141,7 +1141,7 @@ CONTAINS ENDDO ENDDO - CALL VERIFY("H5Dread_chunk_f",filters, 0_C_INT32_T, total_error) + CALL VERIFY("H5Dread_chunk_f",filters, 0, total_error) CALL h5dclose_f(dset_id, error) CALL check("h5dclose_f",error,total_error) |