source: CIVL/mods/dev.civl.com/examples/mpi/mpiFeature/potential_dl_good.c@ cb4d4f4

/* Example of potential deadlock.  Two procs each attempt to send,
 * then receive.   Run with nprocs=2. */
#include <mpi.h>
#include <stdlib.h>
#define comm MPI_COMM_WORLD

int main(int argc, char * argv[]) {
  int rank;

  MPI_Init(&argc, &argv);
  MPI_Comm_rank(comm, &rank);
  if (rank == 0 || rank == 1)
  MPI_Sendrecv(NULL, 0, MPI_INT, 1-rank, 0, NULL, 0, MPI_INT, 1-rank, 0, comm, MPI_STATUS_IGNORE);
  MPI_Finalize();
}