1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
4 * (C) 2014 by Argonne National Laboratory.
5 * See COPYRIGHT in top-level directory.
12 #define ELEM_PER_PROC 1
14 static int errors = 0;
16 int main(int argc, char *argv[])
19 int shm_rank, shm_nprocs;
26 MTest_Init(&argc, &argv);
28 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
29 MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
31 /* run with two processes. */
33 MPI_Comm_split_type(MPI_COMM_WORLD, MPI_COMM_TYPE_SHARED, rank, MPI_INFO_NULL, &shm_comm);
35 MPI_Comm_rank(shm_comm, &shm_rank);
36 MPI_Comm_size(shm_comm, &shm_nprocs);
38 if (shm_nprocs >= 2) {
39 MPI_Win_allocate_shared(sizeof(int) * ELEM_PER_PROC, sizeof(int), MPI_INFO_NULL,
40 shm_comm, &my_base, &shm_win);
42 /* Test for FENCE with no asserts. */
47 MPI_Win_fence(0, shm_win);
48 MPI_Win_fence(0, shm_win);
50 if (my_base[0] != one) {
52 printf("Expected: my_base[0] = %d Actual: my_base[0] = %d\n", one, my_base[0]);
57 MPI_Win_fence(0, shm_win);
58 MPI_Put(&one, 1, MPI_INT, 1, 0, 1, MPI_INT, shm_win);
59 MPI_Win_fence(0, shm_win);
62 /* Test for FENCE with assert MPI_MODE_NOPRECEDE. */
65 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, 1, 0, shm_win);
66 MPI_Put(&one, 1, MPI_INT, 1, 0, 1, MPI_INT, shm_win);
67 MPI_Win_unlock(1, shm_win);
69 MPI_Win_fence(MPI_MODE_NOPRECEDE, shm_win);
70 MPI_Win_fence(0, shm_win);
75 MPI_Win_fence(MPI_MODE_NOPRECEDE, shm_win);
76 MPI_Get(&result_data, 1, MPI_INT, 1, 0, 1, MPI_INT, shm_win);
77 MPI_Win_fence(0, shm_win);
79 if (result_data != one) {
81 printf("Expected: result_data = %d Actual: result_data = %d\n",
86 MPI_Win_free(&shm_win);
89 MPI_Comm_free(&shm_comm);
91 MTest_Finalize(errors);