teshsuite/smpi/mpich3-test/f90/coll/allredint8f90.f90

   1 ! This file created from test/mpi/f77/coll/allredint8f.f with f77tof90
   2 ! -*- Mode: Fortran; -*-
   3 !
   4 !  (C) 2006 by Argonne National Laboratory.
   5 !      See COPYRIGHT in top-level directory.
   6 !
   7       program main
   8       use mpi
   9       integer*8 inbuf, outbuf
  10       integer errs, ierr
  11
  12       errs = 0
  13
  14       call mtest_init( ierr )
  15 !
  16 ! A simple test of allreduce for the optional integer*8 type
  17
  18       call mpi_allreduce(inbuf, outbuf, 1, MPI_INTEGER8, MPI_SUM,  &
  19       &                   MPI_COMM_WORLD, ierr)
  20
  21       call mtest_finalize( errs )
  22       call mpi_finalize( ierr )
  23       end