source: CIVL/mods/dev.civl.com/examples/contracts/contractsMPI/simpleMpiAgree.c@ cb4d4f4

#include<mpi.h>
#include<assert.h>


#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;
}