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
Branches
Tags
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
This commit is part of merge request !18. Comments created here will be created in the context of that merge request.
Show whitespace changes
Inline Side-by-side
example/ALL_Staggered_f.F90
+ 2
− 0
View file @ 3f335c3e
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment