teshsuite/smpi/mpich3-test/coll/iallred.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *
   4  *  (C) 2012 by Argonne National Laboratory.
   5  *      See COPYRIGHT in top-level directory.
   6  */
   7
   8 #include <stdio.h>
   9 #include <assert.h>
  10 #include "mpi.h"
  11 #include "mpitest.h"
  12
  13 int main(int argc, char *argv[])
  14 {
  15     MPI_Request request;
  16     int size, rank;
  17     int one = 1, two = 2, isum, sum;
  18
  19     MPI_Init(&argc, &argv);
  20     MPI_Comm_size(MPI_COMM_WORLD, &size);
  21     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
  22     assert(size == 2);
  23     MPI_Iallreduce(&one, &isum, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD, &request);
  24     MPI_Allreduce(&two, &sum, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
  25     MPI_Wait(&request, MPI_STATUS_IGNORE);
  26
  27     assert(isum == 2);
  28     assert(sum == 4);
  29     if (rank == 0)
  30         printf(" No errors\n");
  31
  32     MPI_Finalize();
  33     return 0;
  34 }