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
|
C
C Copyright (C) by Argonne National Laboratory
C See COPYRIGHT in top-level directory
C
C This test tests absolute datatypes and MPI_BOTTOM in mixed
C Fortran and C code. MPI requires MPI_Get_address return
C the same value in all languages.
C See discussion on p.652 of MPI-3.0
program main
implicit none
include 'mpif.h'
integer :: R(5)
integer :: type, ierr, aoblen(1), aotype(1)
integer (kind=mpi_address_kind) :: aodisp(1)
integer errs
errs = 0
R = (/1, 2, 3, 4, 5/)
call mtest_init(ierr)
! create an absolute datatype for array r
aoblen(1) = 5
call MPI_Get_address(R, aodisp(1), ierr)
aotype(1) = MPI_INTEGER
call MPI_Type_create_struct(1,aoblen,aodisp,aotype, type, ierr)
call c_routine(type, errs)
call MPI_Type_free(type, ierr);
call mtest_finalize(errs)
end
|
