summaryrefslogtreecommitdiff
path: root/test cases/common
diff options
context:
space:
mode:
Diffstat (limited to 'test cases/common')
-rw-r--r--test cases/common/157 mpi/main.c27
-rw-r--r--test cases/common/157 mpi/main.cpp11
-rw-r--r--test cases/common/157 mpi/main.f9021
-rw-r--r--test cases/common/157 mpi/meson.build33
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