Blame test/mpi/init/version.c

Packit 0848f5
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
Packit 0848f5
/*
Packit 0848f5
 *
Packit 0848f5
 *  (C) 2003 by Argonne National Laboratory.
Packit 0848f5
 *      See COPYRIGHT in top-level directory.
Packit 0848f5
 */
Packit 0848f5
#include "mpi.h"
Packit 0848f5
#include <stdio.h>
Packit 0848f5
#include "mpitest.h"
Packit 0848f5
Packit 0848f5
int main(int argc, char *argv[])
Packit 0848f5
{
Packit 0848f5
    int errs = 0;
Packit 0848f5
    int majversion, subversion;
Packit 0848f5
Packit 0848f5
    MTest_Init(&argc, &argv);
Packit 0848f5
Packit 0848f5
    MPI_Get_version(&majversion, &subversion);
Packit 0848f5
    if (majversion != MPI_VERSION) {
Packit 0848f5
        errs++;
Packit 0848f5
        printf("Major version is %d but is %d in the mpi.h file\n", majversion, MPI_VERSION);
Packit 0848f5
    }
Packit 0848f5
    if (subversion != MPI_SUBVERSION) {
Packit 0848f5
        errs++;
Packit 0848f5
        printf("Minor version is %d but is %d in the mpi.h file\n", subversion, MPI_SUBVERSION);
Packit 0848f5
    }
Packit 0848f5
Packit 0848f5
    MTest_Finalize(errs);
Packit 0848f5
    MPI_Finalize();
Packit 0848f5
    return 0;
Packit 0848f5
Packit 0848f5
}