From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Tue, 9 Jul 2013 13:01:17 +0000 (+0200)
Subject: exscan non commutative fix
X-Git-Tag: v3_9_90~156
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/c938136f8c0ff30191cafa9ab84538c60c19651c

exscan non commutative fix
---

diff --git a/src/smpi/smpi_base.c b/src/smpi/smpi_base.c
index ec16dbe55f..04f665f30c 100644
--- a/src/smpi/smpi_base.c
+++ b/src/smpi/smpi_base.c
@@ -1366,7 +1366,7 @@ void smpi_mpi_exscan(void *sendbuf, void *recvbuf, int count,
       smpi_mpi_wait(&(requests[other]), MPI_STATUS_IGNORE);
       if(index < rank) {
           if(recvbuf_is_empty){
-            smpi_datatype_copy(tmpbufs[index], count, datatype, recvbuf, count, datatype);
+            smpi_datatype_copy(tmpbufs[other], count, datatype, recvbuf, count, datatype);
             recvbuf_is_empty=0;
           }else smpi_op_apply(op, tmpbufs[other], recvbuf, &count, &datatype);
       }