/* erroneous program: a send is never received.  Will be detected
 * with -deadlock=potential */
#include<mpi.h>

int nprocs;
int myrank;
#define NULL ((void*)0)
void main() {
    double x = 0;
    MPI_Status status;

    MPI_Init(NULL, NULL);
    MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
    if (myrank == 0) {
        MPI_Send(&x, 1, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD);
    }
    MPI_Finalize();
}