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
|
! This file created from f77/datatype/bottomf.f with f77tof90
!
! Copyright (C) by Argonne National Laboratory
! See COPYRIGHT in top-level directory
!
! This test tests absolute datatypes and MPI_BOTTOM in mixed
! Fortran and C code. MPI requires MPI_Get_address return
! the same value in all languages.
! See discussion on p.652 of MPI-3.0
program main
use mpi
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
|
