aboutsummaryrefslogtreecommitdiffstats
path: root/meson/test cases/frameworks/17 mpi/main.c
diff options
context:
space:
mode:
Diffstat (limited to 'meson/test cases/frameworks/17 mpi/main.c')
-rw-r--r--meson/test cases/frameworks/17 mpi/main.c27
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;
+}