From 3f335c3ee6a0c0805e879553597a2bc8864a81f3 Mon Sep 17 00:00:00 2001
From: Stephan Schulz <stephan.schulz-x2q@rub.de>
Date: Wed, 10 Feb 2021 13:22:58 +0100
Subject: [PATCH] example program needs to call MPI_Abort, so MPICH returns non
 zero exit code

---
 example/ALL_Staggered_f.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/example/ALL_Staggered_f.F90 b/example/ALL_Staggered_f.F90
index b2c93cc..e2a1894 100644
--- a/example/ALL_Staggered_f.F90
+++ b/example/ALL_Staggered_f.F90
@@ -217,6 +217,7 @@ contains
                 write(stdout, '(a)') error_msg
                 ! Maybe also abort if the output is necesssary or handle this
                 ! some other way.
+                call MPI_Abort(MPI_COMM_WORLD, 2, error)
                 stop
             endif
 #endif
@@ -236,6 +237,7 @@ contains
             write(stdout, '(a)') error_msg
             ! Maybe also abort if the output is necesssary or handle this
             ! some other way.
+            call MPI_Abort(MPI_COMM_WORLD, 2, error)
             stop
         endif
 #endif
-- 
GitLab