1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2014 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
11 int main(int argc, char **argv)
16 MPI_Init(&argc, &argv);
18 MPI_Issend(NULL, 0, MPI_BYTE, 0, 123, MPI_COMM_SELF, &req);
20 MPI_Probe(MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_COMM_SELF, &status);
21 assert(status.MPI_SOURCE == 0);
22 assert(status.MPI_TAG == 123);
25 assert(req != MPI_REQUEST_NULL);
27 MPI_Request_free(&req);
29 MPI_Irecv(NULL, 0, MPI_BYTE, 0, 123, MPI_COMM_SELF, &req);
31 MPI_Wait(&req, &status);
33 printf(" No Errors\n");