X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d0ffc37686edcc803601f76ab51fdfed5fc2f241..53ef75ab57752782c82fd7c106626a772940dd0a:/teshsuite/smpi/mpich3-test/coll/icallgatherv.c

diff --git a/teshsuite/smpi/mpich3-test/coll/icallgatherv.c b/teshsuite/smpi/mpich3-test/coll/icallgatherv.c
index a720ed44f8..a88cbf77b4 100644
--- a/teshsuite/smpi/mpich3-test/coll/icallgatherv.c
+++ b/teshsuite/smpi/mpich3-test/coll/icallgatherv.c
@@ -8,12 +8,13 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include "mpitest.h"
+#include "mpicolltest.h"
 
 /*
 static char MTEST_Descrip[] = "Simple intercomm allgatherv test";
 */
 
-int main( int argc, char *argv[] )
+int main(int argc, char *argv[])
 {
     int errs = 0, err;
     int *rbuf = 0, *sbuf = 0;
@@ -22,101 +23,104 @@ int main( int argc, char *argv[] )
     MPI_Comm comm;
     MPI_Datatype datatype;
 
-    MTest_Init( &argc, &argv );
+    MTest_Init(&argc, &argv);
 
     datatype = MPI_INT;
-	    /* Get an intercommunicator */
-    while (MTestGetIntercomm( &comm, &leftGroup, 4 )) {
-	if (comm == MPI_COMM_NULL) continue;
-	MPI_Comm_rank( comm, &rank );
-	MPI_Comm_remote_size( comm, &rsize );
+    /* Get an intercommunicator */
+    while (MTestGetIntercomm(&comm, &leftGroup, 4)) {
+        if (comm == MPI_COMM_NULL)
+            continue;
+        MPI_Comm_rank(comm, &rank);
+        MPI_Comm_remote_size(comm, &rsize);
 
-	/* To improve reporting of problems about operations, we
-	   change the error handler to errors return */
-	MPI_Errhandler_set( comm, MPI_ERRORS_RETURN );
+        /* To improve reporting of problems about operations, we
+         * change the error handler to errors return */
+        MPI_Errhandler_set(comm, MPI_ERRORS_RETURN);
 
-	for (count = 1; count < 65000; count = 2 * count) {
-	    /* The left group will send rank to the right group;
-	       The right group will send -rank to the left group */
-	    rbuf = (int *)malloc( count * rsize * sizeof(int) );
-	    sbuf = (int *)malloc( count * sizeof(int) );
-	    recvcounts = (int *) malloc( rsize * sizeof(int) );
-	    recvdispls = (int *) malloc( rsize * sizeof(int) );
-	    for (i=0; i<count*rsize; i++) rbuf[i] = -1;
-	    for (i=0; i<rsize; i++) {
-		recvcounts[i] = count;
-		recvdispls[i] = i * count;
-	    }
-	    if (leftGroup) {
-		for (i=0; i<count; i++)       sbuf[i] = i + rank*count;
-	    }
-	    else {
-		for (i=0; i<count; i++)       sbuf[i] = -(i + rank*count);
-	    }
-	    err = MPI_Allgatherv( sbuf, count, datatype,
-				  rbuf, recvcounts, recvdispls, datatype, 
-				  comm );
-	    if (err) {
-		errs++;
-		MTestPrintError( err );
-	    }
-	    if (leftGroup) {
-		for (i=0; i<count*rsize; i++) {
-		    if (rbuf[i] != -i) {
-			errs++;
-		    }
-		}
-	    }
-	    else {
-		for (i=0; i<count*rsize; i++) {
-		    if (rbuf[i] != i) {
-			errs++;
-		    }
-		}
-	    }
+        for (count = 1; count < 65000; count = 2 * count) {
+            /* The left group will send rank to the right group;
+             * The right group will send -rank to the left group */
+            rbuf = (int *) malloc(count * rsize * sizeof(int));
+            sbuf = (int *) malloc(count * sizeof(int));
+            recvcounts = (int *) malloc(rsize * sizeof(int));
+            recvdispls = (int *) malloc(rsize * sizeof(int));
+            for (i = 0; i < count * rsize; i++)
+                rbuf[i] = -1;
+            for (i = 0; i < rsize; i++) {
+                recvcounts[i] = count;
+                recvdispls[i] = i * count;
+            }
+            if (leftGroup) {
+                for (i = 0; i < count; i++)
+                    sbuf[i] = i + rank * count;
+            }
+            else {
+                for (i = 0; i < count; i++)
+                    sbuf[i] = -(i + rank * count);
+            }
+            err = MTest_Allgatherv(sbuf, count, datatype,
+                                   rbuf, recvcounts, recvdispls, datatype, comm);
+            if (err) {
+                errs++;
+                MTestPrintError(err);
+            }
+            if (leftGroup) {
+                for (i = 0; i < count * rsize; i++) {
+                    if (rbuf[i] != -i) {
+                        errs++;
+                    }
+                }
+            }
+            else {
+                for (i = 0; i < count * rsize; i++) {
+                    if (rbuf[i] != i) {
+                        errs++;
+                    }
+                }
+            }
 
-	    /* Use Allgather in a unidirectional way */
-	    for (i=0; i<count*rsize; i++) rbuf[i] = -1;
-	    if (leftGroup) {
-		err = MPI_Allgatherv( sbuf, 0, datatype,
-				      rbuf, recvcounts, recvdispls, datatype, 
-				      comm );
-		if (err) {
-		    errs++;
-		    MTestPrintError( err );
-		}
-		for (i=0; i<count*rsize; i++) {
-		    if (rbuf[i] != -i) {
-			errs++;
-		    }
-		}
-	    }
-	    else {
-                for (i=0; i<rsize; i++) {
+            /* Use Allgather in a unidirectional way */
+            for (i = 0; i < count * rsize; i++)
+                rbuf[i] = -1;
+            if (leftGroup) {
+                err = MTest_Allgatherv(sbuf, 0, datatype,
+                                       rbuf, recvcounts, recvdispls, datatype, comm);
+                if (err) {
+                    errs++;
+                    MTestPrintError(err);
+                }
+                for (i = 0; i < count * rsize; i++) {
+                    if (rbuf[i] != -i) {
+                        errs++;
+                    }
+                }
+            }
+            else {
+                for (i = 0; i < rsize; i++) {
                     recvcounts[i] = 0;
                     recvdispls[i] = 0;
                 }
-		err = MPI_Allgatherv( sbuf, count, datatype,
-				      rbuf, recvcounts, recvdispls, datatype, comm );
-		if (err) {
-		    errs++;
-		    MTestPrintError( err );
-		}
-		for (i=0; i<count*rsize; i++) {
-		    if (rbuf[i] != -1) {
-			errs++;
-		    }
-		}
-	    }
-	    free( rbuf );
-	    free( sbuf );
-	    free( recvcounts );
-	    free( recvdispls );
+                err = MTest_Allgatherv(sbuf, count, datatype,
+                                       rbuf, recvcounts, recvdispls, datatype, comm);
+                if (err) {
+                    errs++;
+                    MTestPrintError(err);
+                }
+                for (i = 0; i < count * rsize; i++) {
+                    if (rbuf[i] != -1) {
+                        errs++;
+                    }
+                }
+            }
+            free(rbuf);
+            free(sbuf);
+            free(recvcounts);
+            free(recvdispls);
         }
-	MTestFreeComm( &comm );
+        MTestFreeComm(&comm);
     }
 
-    MTest_Finalize( errs );
+    MTest_Finalize(errs);
     MPI_Finalize();
     return 0;
 }