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

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


#define comm MPI_COMM_WORLD

/*@ \mpi_collective(comm, P2P):
  @   ensures \mpi_agree(\mpi_region(\mpi_offset(x, 1, MPI_DOUBLE)
  @                                  , 1, MPI_DOUBLE));
  @*/
int bcast(void * x) {
  return 0;
}


/*@
  @ \mpi_collective(comm, P2P):
  @   ensures \mpi_agree(\result);
  @*/
double target() {
  double data[2];

  bcast(data);
  return data[1];
}