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.
10 int run_tests(MPI_Comm comm);
11 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? */
35 MPI_Sendrecv(&a, 1, MPI_INT, dest, 0, &b, 1, MPI_INT, dest, 0, comm, &status);
38 fprintf(stderr, "Received %d expected %d on %d\n", b, dest, rank);
41 if (status.MPI_SOURCE != dest) {
43 fprintf(stderr, "Source not set correctly in status on %d\n", rank);
47 else if (rank == size - 1) {
51 MPI_Sendrecv(&a, 1, MPI_INT, dest, 0, &b, 1, MPI_INT, dest, 0, comm, &status);
54 fprintf(stderr, "Received %d expected %d on %d\n", b, dest, rank);
57 if (status.MPI_SOURCE != dest) {
59 fprintf(stderr, "Source not set correctly in status on %d\n", rank);
69 int main(int argc, char **argv)
75 MTest_Init(&argc, &argv);
77 /* Dup with no info */
78 MPI_Comm_dup_with_info(MPI_COMM_WORLD, MPI_INFO_NULL, &newcomm);
79 total_errs += run_tests(newcomm);
80 MPI_Comm_free(&newcomm);
82 /* Dup with info keys */
83 MPI_Info_create(&info);
84 MPI_Info_set(info, (char *) "host", (char *) "myhost.myorg.org");
85 MPI_Info_set(info, (char *) "file", (char *) "runfile.txt");
86 MPI_Info_set(info, (char *) "soft", (char *) "2:1000:4,3:1000:7");
87 MPI_Comm_dup_with_info(MPI_COMM_WORLD, info, &newcomm);
88 total_errs += run_tests(newcomm);
90 MPI_Comm_free(&newcomm);
92 /* Dup with deleted info keys */
93 MPI_Info_create(&info);
94 MPI_Info_set(info, (char *) "host", (char *) "myhost.myorg.org");
95 MPI_Info_set(info, (char *) "file", (char *) "runfile.txt");
96 MPI_Info_set(info, (char *) "soft", (char *) "2:1000:4,3:1000:7");
97 MPI_Comm_dup_with_info(MPI_COMM_WORLD, info, &newcomm);
99 total_errs += run_tests(newcomm);
100 MPI_Comm_free(&newcomm);
102 MTest_Finalize(total_errs);