teshsuite/smpi/mpich3-test/f77/coll/allredint8f.f

   1 C -*- Mode: Fortran; -*-
   2 C
   3 C  (C) 2006 by Argonne National Laboratory.
   4 C      See COPYRIGHT in top-level directory.
   5 C
   6       program main
   7       implicit none
   8       include 'mpif.h'
   9       integer*8 inbuf, outbuf
  10       integer errs, ierr
  11
  12       errs = 0
  13
  14       call mtest_init( ierr )
  15 C
  16 C 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