1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
4 * (C) 2003 by Argonne National Laboratory.
5 * See COPYRIGHT in top-level directory.
13 int main( int argc, char *argv[] )
16 int errors = 0, all_errors = 0;
17 int *flavor, *model, flag;
21 MPI_Init(&argc, &argv);
22 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
24 /** Create using MPI_Win_create() **/
27 MPI_Alloc_mem(rank*ELEM_SIZE, MPI_INFO_NULL, &buf);
31 MPI_Win_create(buf, rank*ELEM_SIZE, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &window);
32 MPI_Win_get_attr(window, MPI_WIN_CREATE_FLAVOR, &flavor, &flag);
35 printf("%d: MPI_Win_create - Error, no flavor\n", rank);
37 } else if (*flavor != MPI_WIN_FLAVOR_CREATE) {
38 printf("%d: MPI_Win_create - Error, bad flavor (%d)\n", rank, *flavor);
42 MPI_Win_get_attr(window, MPI_WIN_MODEL, &model, &flag);
45 printf("%d: MPI_Win_create - Error, no model\n", rank);
47 } else if ( ! (*model == MPI_WIN_SEPARATE || *model == MPI_WIN_UNIFIED) ) {
48 printf("%d: MPI_Win_create - Error, bad model (%d)\n", rank, *model);
52 MPI_Win_free(&window);
57 /** Create using MPI_Win_allocate() **/
59 MPI_Win_allocate(rank*ELEM_SIZE, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &buf, &window);
61 if (rank > 0 && buf == NULL) {
62 printf("%d: MPI_Win_allocate - Error, bad base pointer\n", rank);
66 MPI_Win_get_attr(window, MPI_WIN_CREATE_FLAVOR, &flavor, &flag);
69 printf("%d: MPI_Win_allocate - Error, no flavor\n", rank);
71 } else if (*flavor != MPI_WIN_FLAVOR_ALLOCATE) {
72 printf("%d: MPI_Win_allocate - Error, bad flavor (%d)\n", rank, *flavor);
76 MPI_Win_get_attr(window, MPI_WIN_MODEL, &model, &flag);
79 printf("%d: MPI_Win_allocate - Error, no model\n", rank);
81 } else if (*model != MPI_WIN_SEPARATE && *model != MPI_WIN_UNIFIED) {
82 printf("%d: MPI_Win_allocate - Error, bad model (%d)\n", rank, *model);
86 MPI_Win_free(&window);
88 /** Create using MPI_Win_create_dynamic() **/
90 MPI_Win_create_dynamic(MPI_INFO_NULL, MPI_COMM_WORLD, &window);
92 MPI_Win_get_attr(window, MPI_WIN_CREATE_FLAVOR, &flavor, &flag);
95 printf("%d: MPI_Win_create_dynamic - Error, no flavor\n", rank);
97 } else if (*flavor != MPI_WIN_FLAVOR_DYNAMIC) {
98 printf("%d: MPI_Win_create_dynamic - Error, bad flavor (%d)\n", rank, *flavor);
102 MPI_Win_get_attr(window, MPI_WIN_MODEL, &model, &flag);
105 printf("%d: MPI_Win_create_dynamic - Error, no model\n", rank);
107 } else if (*model != MPI_WIN_SEPARATE && *model != MPI_WIN_UNIFIED) {
108 printf("%d: MPI_Win_create_dynamic - Error, bad model (%d)\n", rank, *model);
112 MPI_Win_free(&window);
114 MPI_Reduce(&errors, &all_errors, 1, MPI_INT, MPI_SUM, 0, MPI_COMM_WORLD);
116 if (rank == 0 && all_errors == 0)
117 printf(" No Errors\n");