Commit 666d9314 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

Skip tests with OpenMP if not supported

For an MPI library that does not support MPI_THREAD_MULTIPLE the tests
now report "SKIP" instead of "FAIL".
parent 072206dc
......@@ -118,9 +118,8 @@ program read_real
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -174,9 +174,8 @@ program test_complex
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -183,9 +183,8 @@ program test_complex2
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -183,9 +183,8 @@ program test_complex2
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -182,9 +182,8 @@ program test_complex2
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -177,9 +177,8 @@ program test_real
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -178,9 +178,8 @@ program test_real2
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -178,9 +178,8 @@ program test_real2
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -177,9 +177,8 @@ program test_real2
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call exit(77)
endif
#endif
......
......@@ -178,9 +178,8 @@ program test_real2
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,*) " ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
call EXIT(1)
stop 1
write(error_unit,*) " only ", mpi_thread_level_name(provided_mpi_thread_level), " is available"
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