teshsuite/smpi/mpich3-test/rma/nullpscw.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   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
  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 #ifdef USE_WIN_ALLOCATE
  19     char *baseptr;
  20     MPI_Win_allocate(0, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &baseptr, &win);
  21 #else
  22     MPI_Win_create(NULL, 0, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &win);
  23 #endif
  24     MPI_Win_get_group(win, &group);
  25
  26     MPI_Win_post(group, 0, win);
  27     MPI_Win_start(group, 0, win);
  28
  29     MPI_Win_complete(win);
  30
  31     MPI_Win_wait(win);
  32
  33     MPI_Group_free(&group);
  34     MPI_Win_free(&win);
  35
  36     MTest_Finalize(errs);
  37     MPI_Finalize();
  38     return 0;
  39 }