diff options
Diffstat (limited to 'meson/test cases/frameworks/17 mpi/main.c')
-rw-r--r-- | meson/test cases/frameworks/17 mpi/main.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/meson/test cases/frameworks/17 mpi/main.c b/meson/test cases/frameworks/17 mpi/main.c new file mode 100644 index 000000000..e44357a97 --- /dev/null +++ b/meson/test cases/frameworks/17 mpi/main.c @@ -0,0 +1,27 @@ +#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; +} |