From faf976a876d3df9d53ebfe1e95f5300255bd112c Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 7 Feb 2017 09:41:10 +0000
Subject: [PATCH] Take out call to mpi_test with --enable-serial

---
 base/modules/psi_comm_buffers_mod.F90 | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/base/modules/psi_comm_buffers_mod.F90 b/base/modules/psi_comm_buffers_mod.F90
index 701b2b74..15d6d40b 100644
--- a/base/modules/psi_comm_buffers_mod.F90
+++ b/base/modules/psi_comm_buffers_mod.F90
@@ -149,7 +149,7 @@ contains
     type(psb_buffer_node), intent(inout) :: node
     integer(psb_ipk_), intent(out) :: info 
     integer(psb_mpik_) :: status(mpi_status_size),minfo
-
+    minfo = mpi_success
     call mpi_wait(node%request,status,minfo)
     info=minfo
   end subroutine psb_wait_buffer
@@ -166,8 +166,12 @@ contains
     logical, intent(out) :: flag
     integer(psb_ipk_), intent(out) :: info 
     integer(psb_mpik_) :: status(mpi_status_size), minfo
-
+    minfo = mpi_success
+#if defined(SERIAL_MPI)
+    flag  = .true.
+#else
     call mpi_test(node%request,flag,status,minfo)
+#endif
     info=minfo
   end subroutine psb_test_buffer