From ae5ebf600189568de4fc8cc0af94db11149b5dcf Mon Sep 17 00:00:00 2001
From: Axel Kohlmeyer <akohlmey@gmail.com>
Date: Fri, 17 Mar 2017 11:40:09 -0400
Subject: [PATCH] add support for MPI_Request_free() to MPI STUBS library

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

diff --git a/src/STUBS/mpi.c b/src/STUBS/mpi.c
index ca0e921e13..281a12a4e7 100644
--- a/src/STUBS/mpi.c
+++ b/src/STUBS/mpi.c
@@ -190,6 +190,13 @@ int MPI_Type_size(MPI_Datatype datatype, int *size)
 
 /* ---------------------------------------------------------------------- */
 
+int MPI_Request_free(MPI_Request *request)
+{
+  return 0;
+}
+
+/* ---------------------------------------------------------------------- */
+
 int MPI_Send(const void *buf, int count, MPI_Datatype datatype,
              int dest, int tag, MPI_Comm comm)
 {
diff --git a/src/STUBS/mpi.h b/src/STUBS/mpi.h
index 82cbe302ba..1eca1ec527 100644
--- a/src/STUBS/mpi.h
+++ b/src/STUBS/mpi.h
@@ -89,6 +89,7 @@ int MPI_Finalize();
 double MPI_Wtime();
 
 int MPI_Type_size(int, int *);
+int MPI_Request_free(MPI_Request *request);
 
 int MPI_Send(const void *buf, int count, MPI_Datatype datatype,
              int dest, int tag, MPI_Comm comm);