1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2001 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
7 /* This test checks an oddball case for generalized active target
8 * synchronization where the start occurs before the post. Since start can
9 * block until the corresponding post, the group passed to start must be
10 * disjoint from the group passed to post and processes must avoid a circular
11 * wait. Here, odd/even groups are used to accomplish this and the even group
12 * reverses its start/post calls.
21 int main(int argc, char **argv)
23 int i, rank, nproc, errors = 0;
28 int odd_nproc, even_nproc;
29 int *odd_ranks, *even_ranks;
30 MPI_Group odd_group, even_group, world_group;
32 MTest_Init(&argc, &argv);
34 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
35 MPI_Comm_size(MPI_COMM_WORLD, &nproc);
39 printf("Error: this test requires two or more processes\n");
40 MPI_Abort(MPI_COMM_WORLD, 100);
43 /* Set up odd/even groups and buffers */
45 odd_nproc = nproc / 2;
46 even_nproc = nproc / 2 + ((nproc % 2 == 0) ? 0 : 1);
48 odd_ranks = malloc(sizeof(int) * odd_nproc);
49 even_ranks = malloc(sizeof(int) * even_nproc);
51 for (i = 0; i < even_nproc; i++)
52 even_ranks[i] = i * 2;
54 for (i = 0; i < odd_nproc; i++)
55 odd_ranks[i] = i * 2 + 1;
57 MPI_Comm_group(MPI_COMM_WORLD, &world_group);
58 MPI_Group_incl(world_group, odd_nproc, odd_ranks, &odd_group);
59 MPI_Group_incl(world_group, even_nproc, even_ranks, &even_group);
61 /* Create the window */
63 #ifdef USE_WIN_ALLOCATE
64 MPI_Win_allocate(nproc * sizeof(int), sizeof(int), MPI_INFO_NULL,
65 MPI_COMM_WORLD, &win_buf, &win);
67 MPI_Alloc_mem(nproc * sizeof(int), MPI_INFO_NULL, &win_buf);
68 MPI_Win_create(win_buf, nproc * sizeof(int), sizeof(int), MPI_INFO_NULL, MPI_COMM_WORLD, &win);
70 MPI_Win_lock(MPI_LOCK_SHARED, rank, 0, win);
71 for (i = 0; i < nproc; i++)
73 MPI_Win_unlock(rank, win);
75 /* Perform PSCW communication: Odd/even matchup */
78 MPI_Win_start(odd_group, 0, win); /* Even-numbered procs target odd procs */
79 MPI_Win_post(odd_group, 0, win); /* Even procs are targeted by odd procs */
81 /* Write to my slot at each target */
82 for (i = 0; i < odd_nproc; i++)
83 MPI_Put(&rank, 1, MPI_INT, odd_ranks[i], rank, 1, MPI_INT, win);
86 MPI_Win_post(even_group, 0, win); /* Odd procs are targeted by even procs */
87 MPI_Win_start(even_group, 0, win); /* Odd-numbered procs target even procs */
89 /* Write to my slot at each target */
90 for (i = 0; i < even_nproc; i++)
91 MPI_Put(&rank, 1, MPI_INT, even_ranks[i], rank, 1, MPI_INT, win);
95 MPI_Win_complete(win);
98 /* Perform PSCW communication: Odd/odd and even/even matchup */
101 MPI_Win_post(even_group, 0, win); /* Even procs are targeted by even procs */
102 MPI_Win_start(even_group, 0, win); /* Even-numbered procs target even procs */
104 /* Write to my slot at each target */
105 for (i = 0; i < even_nproc; i++)
106 MPI_Put(&rank, 1, MPI_INT, even_ranks[i], rank, 1, MPI_INT, win);
109 MPI_Win_post(odd_group, 0, win); /* Odd procs are targeted by odd procs */
110 MPI_Win_start(odd_group, 0, win); /* Odd-numbered procs target odd procs */
112 /* Write to my slot at each target */
113 for (i = 0; i < odd_nproc; i++)
114 MPI_Put(&rank, 1, MPI_INT, odd_ranks[i], rank, 1, MPI_INT, win);
118 MPI_Win_complete(win);
121 for (i = 0; i < nproc; i++) {
122 if (win_buf[i] != i) {
125 SQUELCH(printf("%d: Error -- win_buf[%d] = %d, expected %d\n", rank, i, win_buf[i], i);
131 #ifndef USE_WIN_ALLOCATE
132 MPI_Free_mem(win_buf);
135 MPI_Group_free(&world_group);
136 MPI_Group_free(&odd_group);
137 MPI_Group_free(&even_group);
142 MTest_Finalize(errors);
144 return MTestReturnValue(errors);