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