diff --git a/example/ALL_Staggered_f.F90 b/example/ALL_Staggered_f.F90 index b2c93ccdcc01532c6879185df0445be450f07a2a..e2a1894e41ac9ba48d1eefc13d3218dd7ace707f 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