#include #include #define comm MPI_COMM_WORLD /*@ @ \mpi_collective(comm, P2P): @ requires \mpi_valid(x, 1, MPI_INT); @ ensures \mpi_agree(*x); @*/ int bcast(int * x) { return 0; } /*@ @ \mpi_collective(comm, P2P): @ ensures \mpi_agree(\result); @*/ int target() { int rank; $havoc(&rank); bcast(&rank); return rank; }