meson/test cases/frameworks/17 mpi/main.c

#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;
}