source: CIVL/mods/dev.civl.com/examples/por/atomic0.cvl@ cb4d4f4

#include<civlc.cvh>

int x=0;

void f() {
  x=1;
}

void main() {
  $proc fp = $spawn f();
  
  $atomic {
    $assert((x==0)); // false
  }
  $wait(fp);
}