X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/aac4ba41ea27fe8168bebed009abebd7e5c3f006..4cdc0f888550cbaefe6094ae801230336d005337:/teshsuite/smpi/mpich3-test/rma/contig_displ.c

diff --git a/teshsuite/smpi/mpich3-test/rma/contig_displ.c b/teshsuite/smpi/mpich3-test/rma/contig_displ.c
index 9d37da6cc3..459c8b622b 100644
--- a/teshsuite/smpi/mpich3-test/rma/contig_displ.c
+++ b/teshsuite/smpi/mpich3-test/rma/contig_displ.c
@@ -11,72 +11,80 @@
 /* Run with 1 process.
 
    This program does an MPI_Get with an indexed datatype. The datatype
-   comprises a single integer at an initial displacement of 1 integer. 
+   comprises a single integer at an initial displacement of 1 integer.
    That is, the first integer in the array is to be skipped.
 
    This program found a bug in IBM's MPI in which MPI_Get ignored the
-   displacement and got the first integer instead of the second. 
+   displacement and got the first integer instead of the second.
 */
 
 int main(int argc, char **argv)
 {
     int rank, nprocs, mpi_err, *array;
-    int getval, disp, errs=0;
+    int getval, disp, errs = 0;
     MPI_Win win;
     MPI_Datatype type;
-    
-    MTest_Init(&argc,&argv); 
+
+    MTest_Init(&argc, &argv);
 
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
 
     if (rank == 0) {
         /* To improve reporting of problems about operations, we
-           change the error handler to errors return */
-        MPI_Comm_set_errhandler( MPI_COMM_SELF, MPI_ERRORS_RETURN );
- 
-        /* create an indexed datatype that points to the second integer 
-           in an array (the first integer is skipped). */
-        disp  =  1;
+         * change the error handler to errors return */
+        MPI_Comm_set_errhandler(MPI_COMM_SELF, MPI_ERRORS_RETURN);
+
+        /* create an indexed datatype that points to the second integer
+         * in an array (the first integer is skipped). */
+        disp = 1;
         mpi_err = MPI_Type_create_indexed_block(1, 1, &disp, MPI_INT, &type);
-        if (mpi_err != MPI_SUCCESS) goto err_return;
+        if (mpi_err != MPI_SUCCESS)
+            goto err_return;
         mpi_err = MPI_Type_commit(&type);
-        if (mpi_err != MPI_SUCCESS) goto err_return;
- 
-        /* allocate window of size 2 integers*/
-        mpi_err = MPI_Alloc_mem(2*sizeof(int), MPI_INFO_NULL, &array);
-        if (mpi_err != MPI_SUCCESS) goto err_return;
- 
+        if (mpi_err != MPI_SUCCESS)
+            goto err_return;
+
+        /* allocate window of size 2 integers */
+        mpi_err = MPI_Alloc_mem(2 * sizeof(int), MPI_INFO_NULL, &array);
+        if (mpi_err != MPI_SUCCESS)
+            goto err_return;
+
         /* create window object */
-        mpi_err = MPI_Win_create(array, 2*sizeof(int), sizeof(int), MPI_INFO_NULL, MPI_COMM_SELF, &win);
-        if (mpi_err != MPI_SUCCESS) goto err_return;
-  
+        mpi_err =
+            MPI_Win_create(array, 2 * sizeof(int), sizeof(int), MPI_INFO_NULL, MPI_COMM_SELF, &win);
+        if (mpi_err != MPI_SUCCESS)
+            goto err_return;
+
         /* initialize array */
         array[0] = 100;
         array[1] = 200;
- 
+
         getval = 0;
-        
+
         /* To improve reporting of problems about operations, we
-           change the error handler to errors return */
-        MPI_Win_set_errhandler( win, MPI_ERRORS_RETURN );
- 
+         * change the error handler to errors return */
+        MPI_Win_set_errhandler(win, MPI_ERRORS_RETURN);
+
         mpi_err = MPI_Win_lock(MPI_LOCK_EXCLUSIVE, 0, 0, win);
-        if (mpi_err != MPI_SUCCESS) goto err_return;
- 
+        if (mpi_err != MPI_SUCCESS)
+            goto err_return;
+
         /* get the current value of element array[1] */
         mpi_err = MPI_Get(&getval, 1, MPI_INT, 0, 0, 1, type, win);
-        if (mpi_err != MPI_SUCCESS) goto err_return;
- 
+        if (mpi_err != MPI_SUCCESS)
+            goto err_return;
+
         mpi_err = MPI_Win_unlock(0, win);
-        if (mpi_err != MPI_SUCCESS) goto err_return;
- 
+        if (mpi_err != MPI_SUCCESS)
+            goto err_return;
+
         /* getval should contain the value of array[1] */
         if (getval != array[1]) {
             errs++;
             printf("getval=%d, should be %d\n", getval, array[1]);
         }
- 
+
         MPI_Free_mem(array);
         MPI_Win_free(&win);
         MPI_Type_free(&type);
@@ -86,13 +94,11 @@ int main(int argc, char **argv)
     MPI_Finalize();
     return 0;
 
- err_return:
+  err_return:
     printf("MPI function error returned an error\n");
-    MTestPrintError( mpi_err );
+    MTestPrintError(mpi_err);
     errs++;
     MTest_Finalize(errs);
     MPI_Finalize();
     return 1;
 }
-
-