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

#include<civlc.cvh>

int *x;
int *p;
$scope root = $here;

void f() {
  int y=0;
  {
    int *q = p;
    y = y + 1;
    *q = 15;
  }
}

void main() {
  $proc fp;
  
  x = (int*) $malloc(root, sizeof(int));
  p = x;
  *x = 0;
  fp = $spawn f(); 
  $assert((*p==0));
  $wait(fp);
  $free(x);
}