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.
11 static int run_tests(MPI_Comm comm)
13 int rank, size, wrank, wsize, dest, a, b, errs = 0;
16 /* Check basic properties */
17 MPI_Comm_size(MPI_COMM_WORLD, &wsize);
18 MPI_Comm_rank(MPI_COMM_WORLD, &wrank);
19 MPI_Comm_size(comm, &size);
20 MPI_Comm_rank(comm, &rank);
22 if (size != wsize || rank != wrank) {
24 fprintf(stderr, "Size (%d) or rank (%d) wrong\n", size, rank);
30 /* Can we communicate with this new communicator? */
36 MPI_Sendrecv(&a, 1, MPI_INT, dest, 0, &b, 1, MPI_INT, dest, 0, comm, &status);
39 fprintf(stderr, "Received %d expected %d on %d\n", b, dest, rank);
42 if (status.MPI_SOURCE != dest) {
44 fprintf(stderr, "Source not set correctly in status on %d\n", rank);
48 else if (rank == size - 1) {
52 MPI_Sendrecv(&a, 1, MPI_INT, dest, 0, &b, 1, MPI_INT, dest, 0, comm, &status);
55 fprintf(stderr, "Received %d expected %d on %d\n", b, dest, rank);
58 if (status.MPI_SOURCE != dest) {
60 fprintf(stderr, "Source not set correctly in status on %d\n", rank);
70 int main(int argc, char **argv)
76 MTest_Init(&argc, &argv);
78 /* Dup with no info */
79 MPI_Comm_dup_with_info(MPI_COMM_WORLD, MPI_INFO_NULL, &newcomm);
80 total_errs += run_tests(newcomm);
81 MPI_Comm_free(&newcomm);
83 /* Dup with info keys */
84 MPI_Info_create(&info);
85 MPI_Info_set(info, (char *) "host", (char *) "myhost.myorg.org");
86 MPI_Info_set(info, (char *) "file", (char *) "runfile.txt");
87 MPI_Info_set(info, (char *) "soft", (char *) "2:1000:4,3:1000:7");
88 MPI_Comm_dup_with_info(MPI_COMM_WORLD, info, &newcomm);
89 total_errs += run_tests(newcomm);
91 MPI_Comm_free(&newcomm);
93 /* Dup with deleted info keys */
94 MPI_Info_create(&info);
95 MPI_Info_set(info, (char *) "host", (char *) "myhost.myorg.org");
96 MPI_Info_set(info, (char *) "file", (char *) "runfile.txt");
97 MPI_Info_set(info, (char *) "soft", (char *) "2:1000:4,3:1000:7");
98 MPI_Comm_dup_with_info(MPI_COMM_WORLD, info, &newcomm);
100 total_errs += run_tests(newcomm);
101 MPI_Comm_free(&newcomm);
103 MTest_Finalize(total_errs);