Skip to content
Snippets Groups Projects
Commit 3f335c3e authored by Stephan Schulz's avatar Stephan Schulz
Browse files

example program needs to call MPI_Abort, so MPICH returns non zero exit code

parent 7cce8fc3
No related branches found
No related tags found
1 merge request!18Fortran error tests
Pipeline #59424 passed
Stage: test_projects
Stage: build_mpich_gcc8
Stage: build_openmpi_gcc8
Stage: build_mpich_gcc9
Stage: build_openmpi_gcc9
Stage: build_mpich_gcc10
Stage: build_openmpi_gcc10
Show whitespace changes
Inline Side-by-side
example/ALL_Staggered_f.F90
+ 2
− 0
View file @ 3f335c3e
...@@ -217,6 +217,7 @@ contains ...@@ -217,6 +217,7 @@ contains
write(stdout, '(a)') error_msg write(stdout, '(a)') error_msg
! Maybe also abort if the output is necesssary or handle this ! Maybe also abort if the output is necesssary or handle this
! some other way. ! some other way.
call MPI_Abort(MPI_COMM_WORLD, 2, error)
stop stop
endif endif
#endif #endif
...@@ -236,6 +237,7 @@ contains ...@@ -236,6 +237,7 @@ contains
write(stdout, '(a)') error_msg write(stdout, '(a)') error_msg
! Maybe also abort if the output is necesssary or handle this ! Maybe also abort if the output is necesssary or handle this
! some other way. ! some other way.
call MPI_Abort(MPI_COMM_WORLD, 2, error)
stop stop
endif endif
#endif #endif
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment