Adding upstream version 1.0.1.upstream/1.0.1upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 27 insertions, 0 deletions

diff --git a/test cases/frameworks/17 mpi/main.c b/test cases/frameworks/17 mpi/main.c
new file mode 100644
index 0000000..e44357a
--- /dev/null
+++ b/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;
+}