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