source: CIVL/examples/concurrency/adderBad.cvl@ bb03188

/* Commandline execution:
 *              civl verify -inputB=5 adderBad.cvl
 * or (if you want to find the minimal counterexample)
 *              civl verify -inputB=5 adderBad.cvl -min
 * */
#include <civlc.cvh>

$input int B = 5; // upper bound on array length
$input int N;     // length of array
$assume(0<=N && N<=B);
$input double a[N];

double adderSeq(double *p, int n) {
  double s = 0.0;
  
  for (int i = 0; i < n; i++) {
    s += p[i]; 
  }
  return s;
}

double adderPar(double *p, int n) {
  double s = 0.0; // sum shared by workers
  $proc workers[n]; // one worker for each element!

  void worker(int i) {
    double t;

    t = s;
    t += p[i];
    s = t;
  }
  
  $parfor(int i : 0 .. n-1)
    worker(i);
  return s;
}

void main() {
  double seq = adderSeq(&a[0], N);
  double par = adderPar(&a[0], N);

  $assert(seq == par);
}