/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */

/*

 *  (C) 2001 by Argonne National Laboratory.

 *      See COPYRIGHT in top-level directory.

 */

/*

 * A simple test of the intercomm create routine, with a communication test

 */

#include "mpi.h"

#include <stdio.h>

#include "mpitest.h"

int main(int argc, char *argv[])

{

    MPI_Comm intercomm;

    int remote_rank, rank, size, errs = 0;

    volatile int trigger;

    MTest_Init(&argc, &argv);

    trigger = 1;

/*    while (trigger) ; */

    MPI_Comm_size(MPI_COMM_WORLD, &size);

    if (size < 2) {

        printf("Size must be at least 2\n");

        MPI_Abort(MPI_COMM_WORLD, 0);

    }

    MPI_Comm_rank(MPI_COMM_WORLD, &rank;;

    /* Make an intercomm of the first two elements of comm_world */

    if (rank < 2) {

        int lrank = rank, rrank = -1;

        MPI_Status status;

        remote_rank = 1 - rank;

        MPI_Intercomm_create(MPI_COMM_SELF, 0, MPI_COMM_WORLD, remote_rank, 27, &intercomm);

        /* Now, communicate between them */

        MPI_Sendrecv(&lrank, 1, MPI_INT, 0, 13, &rrank, 1, MPI_INT, 0, 13, intercomm, &status);

        if (rrank != remote_rank) {

            errs++;

            printf("%d Expected %d but received %d\n", rank, remote_rank, rrank);

        }

        MPI_Comm_free(&intercomm);

    }

    /* The next test should create an intercomm with groups of different

     * sizes FIXME */

    MTest_Finalize(errs);

    return MTestReturnValue(errs);

}