X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c81c99a491282f76757c2673961e3cdee6853539..550e68e2d3bb08b56b4c900ba701e07f38882b19:/teshsuite/smpi/mpich3-test/coll/allgather2.c

diff --git a/teshsuite/smpi/mpich3-test/coll/allgather2.c b/teshsuite/smpi/mpich3-test/coll/allgather2.c
index edb907dd16..66a21eca6e 100644
--- a/teshsuite/smpi/mpich3-test/coll/allgather2.c
+++ b/teshsuite/smpi/mpich3-test/coll/allgather2.c
@@ -50,7 +50,18 @@ int main( int argc, char **argv )
 
 	MTestFreeComm( &comm );
     }
-    
+
+#if MTEST_HAVE_MIN_MPI_VERSION(2,2)
+    MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
+    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+    MPI_Comm_size(MPI_COMM_WORLD, &size);
+    vecout = (double *) malloc(size * sizeof(double));
+    if (MPI_SUCCESS == MPI_Allgather(&vecout[rank], 1, MPI_DOUBLE,
+                                      vecout, 1, MPI_DOUBLE, MPI_COMM_WORLD))
+        errs++;
+    free(vecout);
+#endif
+
     MTest_Finalize( errs );
     MPI_Finalize();
     return 0;