From 9af8fdc91e925b08a5a424176af1147f3ea35930 Mon Sep 17 00:00:00 2001
From: Axel Kohlmeyer <akohlmey@gmail.com>
Date: Fri, 7 Mar 2025 11:50:53 -0500
Subject: [PATCH] add MPI stub for MPI_Iprobe()

---
 src/STUBS/mpi.cpp | 8 ++++++++
 src/STUBS/mpi.h   | 1 +
 2 files changed, 9 insertions(+)

diff --git a/src/STUBS/mpi.cpp b/src/STUBS/mpi.cpp
index 53b83236ba..f938c26f21 100644
--- a/src/STUBS/mpi.cpp
+++ b/src/STUBS/mpi.cpp
@@ -300,6 +300,14 @@ int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int source, int tag,
 
 /* ---------------------------------------------------------------------- */
 
+int MPI_Iprobe(int, int, MPI_Comm, int *flag, MPI_Status *);
+{
+  if (flag) *flag = 0;
+  return 0;
+}
+
+/* ---------------------------------------------------------------------- */
+
 int MPI_Wait(MPI_Request *request, MPI_Status *status)
 {
   static int callcount = 0;
diff --git a/src/STUBS/mpi.h b/src/STUBS/mpi.h
index 71da393642..b89c098bad 100644
--- a/src/STUBS/mpi.h
+++ b/src/STUBS/mpi.h
@@ -105,6 +105,7 @@ int MPI_Recv(void *buf, int count, MPI_Datatype datatype, int source, int tag, M
              MPI_Status *status);
 int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int source, int tag, MPI_Comm comm,
               MPI_Request *request);
+int MPI_Iprobe(int source, int tag, MPI_Comm comm, int *flag, MPI_Status *status);
 int MPI_Wait(MPI_Request *request, MPI_Status *status);
 int MPI_Waitall(int n, MPI_Request *request, MPI_Status *status);
 int MPI_Waitany(int count, MPI_Request *request, int *index, MPI_Status *status);