From a1e427dcc0ab4e7f2ff608ba845ec7c934976797 Mon Sep 17 00:00:00 2001
From: Dan H <goracle@users.noreply.github.com>
Date: Sat, 3 Mar 2018 14:48:09 -0500
Subject: [PATCH] Add error checking assert for init mpi.

---
 lib/mpi/QMP_init_mpi.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/mpi/QMP_init_mpi.c b/lib/mpi/QMP_init_mpi.c
index 6be4ddd..2d7d406 100644
--- a/lib/mpi/QMP_init_mpi.c
+++ b/lib/mpi/QMP_init_mpi.c
@@ -3,6 +3,7 @@
 #include <stdlib.h>
 #include <ctype.h>
 #include <stdarg.h>
+#include <assert.h>
 
 #include "QMP_P_COMMON.h"
 
@@ -39,6 +40,7 @@ QMP_init_machine_mpi (int* argc, char*** argv, QMP_thread_level_t required,
 	QMP_abort_string (-1, "MPI_Init failed");
     }else{
       MPI_Query_thread(&mpi_prv);
+      assert(mpi_prv==mpi_req);
     }
 
   switch(mpi_prv) {