/* -*- 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);
}