From b3add651b9b6bd3d45fcadfe0b9bbd9db2e52352 Mon Sep 17 00:00:00 2001
From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Thu, 11 Jul 2013 15:59:16 +0200
Subject: [PATCH] MPI_Iprobe should return flag=true when asked with stupid
 parameters

---
 src/smpi/smpi_pmpi.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c
index 69de4f4c97..f073ed7a5d 100644
--- a/src/smpi/smpi_pmpi.c
+++ b/src/smpi/smpi_pmpi.c
@@ -1434,6 +1434,7 @@ int PMPI_Iprobe(int source, int tag, MPI_Comm comm, int* flag, MPI_Status* statu
   } else if (comm == MPI_COMM_NULL) {
     retval = MPI_ERR_COMM;
   } else if (source == MPI_PROC_NULL) {
+    *flag=TRUE;
     smpi_empty_status(status);
     status->MPI_SOURCE = MPI_PROC_NULL;
     retval = MPI_SUCCESS;
-- 
2.20.1