1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
4 * (C) 2012 by Argonne National Laboratory.
5 * See COPYRIGHT in top-level directory.
13 int main(int argc, char *argv[])
17 int one = 1, two = 2, isum, sum;
20 MPI_Init(&argc,&argv);
21 MPI_Comm_size(MPI_COMM_WORLD, &size);
22 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
24 MPI_Iallreduce(&one,&isum,1,MPI_INT,MPI_SUM,MPI_COMM_WORLD,&request);
25 MPI_Allreduce(&two,&sum,1,MPI_INT,MPI_SUM,MPI_COMM_WORLD);
26 MPI_Wait(&request,MPI_STATUS_IGNORE);
31 MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
32 if (MPI_SUCCESS == MPI_Iallreduce(&one, &one, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD, &request))
35 if (rank == 0 && errs == 0)
36 printf(" No errors\n");