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   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 }