diff options
Diffstat (limited to 'test cases/common')
| -rw-r--r-- | test cases/common/157 mpi/main.c | 27 | ||||
| -rw-r--r-- | test cases/common/157 mpi/main.cpp | 11 | ||||
| -rw-r--r-- | test cases/common/157 mpi/main.f90 | 21 | ||||
| -rw-r--r-- | test cases/common/157 mpi/meson.build | 33 |
4 files changed, 0 insertions, 92 deletions
diff --git a/test cases/common/157 mpi/main.c b/test cases/common/157 mpi/main.c deleted file mode 100644 index e44357a97..000000000 --- a/test cases/common/157 mpi/main.c +++ /dev/null @@ -1,27 +0,0 @@ -#include <stdio.h> -#include <mpi.h> - -int main(int argc, char **argv) -{ - int ier, flag; - ier = MPI_Init(&argc, &argv); - if (ier) { - printf("Unable to initialize MPI: %d\n", ier); - return 1; - } - ier = MPI_Initialized(&flag); - if (ier) { - printf("Unable to check MPI initialization state: %d\n", ier); - return 1; - } - if (!flag) { - printf("MPI did not initialize!\n"); - return 1; - } - ier = MPI_Finalize(); - if (ier) { - printf("Unable to finalize MPI: %d\n", ier); - return 1; - } - return 0; -} diff --git a/test cases/common/157 mpi/main.cpp b/test cases/common/157 mpi/main.cpp deleted file mode 100644 index 0e0b62173..000000000 --- a/test cases/common/157 mpi/main.cpp +++ /dev/null @@ -1,11 +0,0 @@ -#include <mpi.h> - -int main(int argc, char **argv) -{ - MPI::Init(argc, argv); - if (!MPI::Is_initialized()) { - printf("MPI did not initialize!\n"); - return 1; - } - MPI::Finalize(); -} diff --git a/test cases/common/157 mpi/main.f90 b/test cases/common/157 mpi/main.f90 deleted file mode 100644 index d379e96f8..000000000 --- a/test cases/common/157 mpi/main.f90 +++ /dev/null @@ -1,21 +0,0 @@ -program mpitest - implicit none - include 'mpif.h' - logical :: flag - integer :: ier - call MPI_Init(ier) - if (ier /= 0) then - print *, 'Unable to initialize MPI: ', ier - stop 1 - endif - call MPI_Initialized(flag, ier) - if (ier /= 0) then - print *, 'Unable to check MPI initialization state: ', ier - stop 1 - endif - call MPI_Finalize(ier) - if (ier /= 0) then - print *, 'Unable to finalize MPI: ', ier - stop 1 - endif -end program mpitest diff --git a/test cases/common/157 mpi/meson.build b/test cases/common/157 mpi/meson.build deleted file mode 100644 index 5e9bc563d..000000000 --- a/test cases/common/157 mpi/meson.build +++ /dev/null @@ -1,33 +0,0 @@ -project('mpi', 'c', 'cpp') - -cc = meson.get_compiler('c') - -if build_machine.system() == 'windows' and cc.get_id() != 'msvc' - error('MESON_SKIP_TEST: MPI not available on Windows without MSVC.') -endif - -mpic = dependency('mpi', language : 'c') -exec = executable('exec', - 'main.c', - dependencies : [mpic]) - -test('MPI C', exec) - -if build_machine.system() != 'windows' - # C++ MPI not supported by MS-MPI used on AppVeyor. - mpicpp = dependency('mpi', language : 'cpp') - execpp = executable('execpp', - 'main.cpp', - dependencies : [mpicpp]) - - test('MPI C++', execpp) -endif - -if add_languages('fortran', required : false) - mpifort = dependency('mpi', language : 'fortran') - exef = executable('exef', - 'main.f90', - dependencies : [mpifort]) - - test('MPI Fortran', exef) -endif |
