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

diff --git a/teshsuite/smpi/mpich3-test/coll/gather.c b/teshsuite/smpi/mpich3-test/coll/gather.c
index 7433caa465..e14503f3b1 100644
--- a/teshsuite/smpi/mpich3-test/coll/gather.c
+++ b/teshsuite/smpi/mpich3-test/coll/gather.c
@@ -66,6 +66,16 @@ int main( int argc, char **argv )
     /* do a zero length gather */
     MPI_Gather( NULL, 0, MPI_BYTE, NULL, 0, MPI_BYTE, 0, MPI_COMM_WORLD );
 
+#if MTEST_HAVE_MIN_MPI_VERSION(2,2)
+    /* Check to make sure that aliasing is disallowed correctly */
+    MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
+    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+    if (0 == rank)
+        if (MPI_SUCCESS == MPI_Gather(&rank, 1, MPI_INT,
+                                      &rank, 1, MPI_INT, 0, MPI_COMM_WORLD))
+            errs++;
+#endif
+
     MTest_Finalize( errs );
     MPI_Finalize();
     return 0;