1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2013 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
8 * Test creating multiple communicators with MPI_Comm_idup.
16 int main(int argc, char **argv)
19 MPI_Comm comms[NUM_ITER];
20 MPI_Request req[NUM_ITER];
22 MPI_Init(&argc, &argv);
23 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
25 for (i = 0; i < NUM_ITER; i++)
26 MPI_Comm_idup(MPI_COMM_WORLD, &comms[i], &req[i]);
28 MPI_Waitall(NUM_ITER, req, MPI_STATUSES_IGNORE);
30 for (i = 0; i < NUM_ITER; i++)
31 MPI_Comm_free(&comms[i]);
34 printf(" No Errors\n");