From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Mon, 5 Nov 2012 10:18:29 +0000 (+0100)
Subject: as MPI_Iprobe always use a 0-sized request, do not check if this size is different... 
X-Git-Tag: v3_9_rc1~91^2~129
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/28df942f24971393bc65b4f9fdde3dff0fb8b3fd

as MPI_Iprobe always use a 0-sized request, do not check if this size is different from the sent one, and do not answer MPI_ERR_TRUNCATE
---

diff --git a/src/smpi/smpi_base.c b/src/smpi/smpi_base.c
index 29b8eb7645..4d58f246ba 100644
--- a/src/smpi/smpi_base.c
+++ b/src/smpi/smpi_base.c
@@ -461,10 +461,8 @@ void smpi_mpi_iprobe(int source, int tag, MPI_Comm comm, int* flag, MPI_Status*
     if(status != MPI_STATUS_IGNORE) {
       status->MPI_SOURCE = req->src;
       status->MPI_TAG = req->tag;
-      if(req->size == request->size)
-        status->MPI_ERROR = MPI_SUCCESS;
-      else status->MPI_ERROR = MPI_ERR_TRUNCATE;
-      status->count = request->size;
+      status->MPI_ERROR = MPI_SUCCESS;
+      status->count = req->size;
     }
   }
   else *flag = 0;