1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2001 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
10 int main( int argc, char * argv[] )
21 MTest_Init( &argc, &argv );
23 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
27 MPI_Isend( &sendMsg, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, &request );
30 MPI_Iprobe( 0, 0, MPI_COMM_WORLD, &flag, &status );
32 MPI_Get_count( &status, MPI_INT, &count );
37 MPI_Recv( &recvMsg, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, &status );
42 MPI_Wait( &request, &status );
44 MTest_Finalize( errs );