1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
! This file created from test/mpi/f77/datatype/gaddressf.f with f77tof90
! -*- Mode: Fortran; -*-
!
!
! (C) 2003 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
!
program main
use mpi_f08
integer max_asizev
parameter (max_asizev=2)
integer (kind=MPI_ADDRESS_KIND) aint, aintv(max_asizev)
integer iarray(200), gap, intsize
integer ierr, errs
errs = 0
call MTest_Init(ierr)
call MPI_Get_address( iarray(1), aintv(1), ierr )
call MPI_Get_address( iarray(200), aintv(2), ierr )
gap = aintv(2) - aintv(1)
call MPI_Type_size( MPI_INTEGER, intsize, ierr )
if (gap .ne. 199 * intsize) then
errs = errs + 1
print *, ' Using get_address, computed a gap of ', gap
print *, ' Expected a gap of ', 199 * intsize
endif
call MTest_Finalize( errs )
end
|
