From 7c8a911b9118579059016b685d22b8e5782bcefd Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Thu, 15 Apr 2021 08:58:44 -0400
Subject: [PATCH] Improve fake MPI by always setting to 0 the return code

---
 base/modules/fakempi.c | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/base/modules/fakempi.c b/base/modules/fakempi.c
index 9bf81733..7d56938f 100644
--- a/base/modules/fakempi.c
+++ b/base/modules/fakempi.c
@@ -117,20 +117,30 @@ double mpi_wtime()
 }
 
 
-void mpi_wait()
+void mpi_wait(int *request, int* status, int *ierr)
+
 {
+  *ierr = 0;  
   return;
 }
-void mpi_send()
+void mpi_send(void* buf, int* count, int* datatype,
+	      int *dest, int *tag, int *comm, int *ierr)
 {
+  *ierr = 0;
   return;
 }
-void mpi_isend()
+void mpi_isend(void* buf, int* count, int* datatype,
+	       int *dest, int *tag, int *comm, int *request,
+	       int *ierr)
 {
+  *ierr = 0;
   return;
 }
-void mpi_irecv()
+void mpi_irecv(void* buf, int* count, int* datatype,
+	       int *src, int *tag, int *comm, int *request,
+	       int *ierr)
 {
+  *ierr = 0;
   return;
 }