Commit 72a4bc1d authored by Andreas Marek's avatar Andreas Marek
Browse files

Clean exit if QR is skipped

parent 38285971
......@@ -149,6 +149,9 @@ program test
integer :: kernel
#if defined(TEST_COMPLEX) && defined(__SOLVE_TRIDIAGONAL)
#ifdef WITH_MPI
call MPI_finalize(mpierr)
#endif
stop 77
#endif
call read_input_parameters_traditional(na, nev, nblk, write_to_file)
......
......@@ -72,6 +72,7 @@ module test_setup_mpi
if (required_mpi_thread_level .ne. provided_mpi_thread_level) then
write(error_unit,*) "MPI ERROR: MPI_THREAD_MULTIPLE is not provided on this system"
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call MPI_FINALIZE(mpierr)
call exit(77)
endif
#endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment