Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Update RMA tests
[simgrid.git] / teshsuite / smpi / mpich3-test / rma / getgroup.c
index 4dd0c0d..051bb5f 100644 (file)
 static char MTEST_Descrip[] = "Test of Win_get_group";
 */
 
-int main( int argc, char *argv[] )
+int main(int argc, char *argv[])
 {
     int errs = 0;
     int result;
     int buf[10];
-    MPI_Win   win;
+    MPI_Win win;
     MPI_Group group, wingroup;
     int minsize = 2;
-    MPI_Comm      comm;
+    MPI_Comm comm;
 
-    MTest_Init( &argc, &argv );
+    MTest_Init(&argc, &argv);
 
-    /* The following illustrates the use of the routines to 
-       run through a selection of communicators and datatypes.
-       Use subsets of these for tests that do not involve combinations 
-       of communicators, datatypes, and counts of datatypes */
-    while (MTestGetIntracommGeneral( &comm, minsize, 1 )) {
-       if (comm == MPI_COMM_NULL) continue;
+    /* The following illustrates the use of the routines to
+     * run through a selection of communicators and datatypes.
+     * Use subsets of these for tests that do not involve combinations
+     * of communicators, datatypes, and counts of datatypes */
+    while (MTestGetIntracommGeneral(&comm, minsize, 1)) {
+        if (comm == MPI_COMM_NULL)
+            continue;
 
-       MPI_Win_create( buf, sizeof(int) * 10, sizeof(int), 
-                       MPI_INFO_NULL, comm, &win );
-       MPI_Win_get_group( win, &wingroup );
-       MPI_Comm_group( comm, &group );
-       MPI_Group_compare( group, wingroup, &result );
-       if (result != MPI_IDENT) {
-           errs++;
-           fprintf( stderr, "Group returned by Win_get_group not the same as the input group\n" );
-       }
-       MPI_Group_free( &wingroup );
-       MPI_Group_free( &group );
-       MPI_Win_free( &win );
+        MPI_Win_create(buf, sizeof(int) * 10, sizeof(int), MPI_INFO_NULL, comm, &win);
+        MPI_Win_get_group(win, &wingroup);
+        MPI_Comm_group(comm, &group);
+        MPI_Group_compare(group, wingroup, &result);
+        if (result != MPI_IDENT) {
+            errs++;
+            fprintf(stderr, "Group returned by Win_get_group not the same as the input group\n");
+        }
+        MPI_Group_free(&wingroup);
+        MPI_Group_free(&group);
+        MPI_Win_free(&win);
         MTestFreeComm(&comm);
     }
 
-    MTest_Finalize( errs );
+    MTest_Finalize(errs);
     MPI_Finalize();
     return 0;
 }