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.
12 #define DATA_NELTS 1000
14 #define DATA_SZ (DATA_NELTS*sizeof(int))
16 static int verbose = 0;
18 int main(int argc, char ** argv) {
20 void *base_ptrs[NUM_WIN];
21 MPI_Win windows[NUM_WIN];
23 MPI_Init(&argc, &argv);
25 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
26 MPI_Comm_size(MPI_COMM_WORLD, &nproc);
28 if (rank == 0) if (verbose) printf("Starting MPI window creation test with %d processes\n", nproc);
30 /* Perform a pile of window creations */
31 for (i = 0; i < NUM_WIN; i++) {
32 if (rank == 0) if (verbose) printf(" + Creating window %d\n", i);
34 MPI_Alloc_mem(DATA_SZ, MPI_INFO_NULL, &base_ptrs[i]);
35 MPI_Win_create(base_ptrs[i], DATA_SZ, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &windows[i]);
38 MPI_Barrier(MPI_COMM_WORLD);
40 /* Free all the windows */
41 for (i = 0; i < NUM_WIN; i++) {
42 if (rank == 0) if (verbose) printf(" + Freeing window %d\n", i);
44 MPI_Win_free(&windows[i]);
45 MPI_Free_mem(base_ptrs[i]);
48 if (rank == 0) printf(" No Errors\n");