Blame test/mpi/init/version.c

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