source: CIVL/examples/collective.cvl@ 9ae277d

_input int n;

_proc procs[n];


void f(int pid) {
  for (int i=0; i<n; i++) {
    _assert \collective(procs) i==procs[(i+1)%n]@i ;
  }
}

void main() {
  _assume n>0;
  for (int i=0; i<n; i++) procs[i] = _spawn f(i);
  for (int i=0; i<n; i++) _wait procs[i];
}