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.
10 int main(int argc, char *argv[])
14 int base[1024], errs = 0;
17 MTest_Init(&argc, &argv);
18 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
20 MPI_Win_create(base, 1024 * sizeof(int), sizeof(int), MPI_INFO_NULL, MPI_COMM_WORLD, &win);
23 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, 0, 0, win);
24 MPI_Barrier(MPI_COMM_WORLD);
25 MPI_Barrier(MPI_COMM_WORLD);
26 MPI_Win_unlock(0, win);
29 MPI_Barrier(MPI_COMM_WORLD);
30 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, 0, 0, win);
31 MPI_Rput(&tmp, 1, MPI_INT, 0, 0, 1, MPI_INT, win, &req);
32 MPI_Test(&req, &flag, MPI_STATUS_IGNORE);
33 MPI_Barrier(MPI_COMM_WORLD);
34 MPI_Win_unlock(0, win);