1 /* -*- Mode: C; c-basic-offset:4 ; -*- */
2 /*
3 * (C) 2006 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
5 */
6 #include <stdio.h>
7 #include <mpi.h>
8 #include "mpitest.h"
9
main(int argc,char * argv[])10 int main(int argc, char* argv[])
11 {
12 MPI_Win win;
13 MPI_Group group;
14 int errs = 0;
15
16 MTest_Init(&argc,&argv);
17
18 MPI_Win_create(NULL, 0, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &win);
19 MPI_Win_get_group(win, &group);
20
21 MPI_Win_post(group, 0, win);
22 MPI_Win_start(group, 0, win);
23
24 MPI_Win_complete(win);
25
26 MPI_Win_wait(win);
27
28 MPI_Group_free( &group );
29 MPI_Win_free(&win);
30
31 MTest_Finalize(errs);
32 MPI_Finalize();
33 return 0;
34 }
35