teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90

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