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".

test/read_real.F90

@@ -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

test/test_complex.F90

@@ -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

test/test_complex2.F90

@@ -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

test/test_complex2_choose_kernel_with_api.F90

@@ -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

test/test_complex2_default_kernel.F90

@@ -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

test/test_real.F90

@@ -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

test/test_real2.F90

@@ -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

test/test_real2_choose_kernel_with_api.F90

@@ -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

test/test_real2_default_kernel.F90

@@ -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

test/test_real2_default_kernel_qr_decomposition.F90

@@ -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