Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
fix+activate rma test
[simgrid.git] / teshsuite / smpi / mpich3-test / rma / nullpscw.c
index c5b1342..fa87000 100644 (file)
@@ -7,28 +7,33 @@
 #include <mpi.h>
 #include "mpitest.h"
 
-int main(int argc, charargv[])
+int main(int argc, char *argv[])
 {
-  MPI_Win win;
-  MPI_Group group;
-  int errs = 0;
-
-  MTest_Init(&argc,&argv); 
-
-  MPI_Win_create(NULL, 0, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &win);
-  MPI_Win_get_group(win, &group);
-  
-  MPI_Win_post(group, 0, win);
-  MPI_Win_start(group, 0, win);
-  
-  MPI_Win_complete(win);
-  
-  MPI_Win_wait(win);
-
-  MPI_Group_free( &group );
-  MPI_Win_free(&win); 
-
-  MTest_Finalize(errs);
-  MPI_Finalize();
-  return 0;
+    MPI_Win win;
+    MPI_Group group;
+    int errs = 0;
+
+    MTest_Init(&argc, &argv);
+
+#ifdef USE_WIN_ALLOCATE
+    char *baseptr;
+    MPI_Win_allocate(0, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &baseptr, &win);
+#else
+    MPI_Win_create(NULL, 0, 1, MPI_INFO_NULL, MPI_COMM_WORLD, &win);
+#endif
+    MPI_Win_get_group(win, &group);
+
+    MPI_Win_post(group, 0, win);
+    MPI_Win_start(group, 0, win);
+
+    MPI_Win_complete(win);
+
+    MPI_Win_wait(win);
+
+    MPI_Group_free(&group);
+    MPI_Win_free(&win);
+
+    MTest_Finalize(errs);
+    MPI_Finalize();
+    return 0;
 }