source: CIVL/examples/library/omp/barrierFlush.cvl@ fffb3b88

#include<civlc.cvh>
#include<civl-omp.cvh>
#include<stdio.h>

void main(){
  int data = 123;
  $omp_gteam gteam = $omp_gteam_create($here, 3);
  $omp_gshared gshared = $omp_gshared_create(gteam, &data);  

  void thread(int tid) {
    int data_local;
    int data_status;
    int private;

    $omp_team team = $omp_team_create($here, gteam, tid);
    $omp_shared shared = $omp_shared_create(team, gshared, &data_local, &data_status);
    printf("Hello from thread %d\n", tid);
    $omp_read(shared, &private, &data_local);
    $assert(private == 123);    
    if(tid == 0){
      // data = 456;
      int tmp = 456;

      $omp_write(shared, &data_local, &tmp);
    }
    $omp_barrier_and_flush(team);
    $omp_read(shared, &private, &data_local);
    $assert(private == 456);
    $omp_shared_destroy(shared);
    $omp_team_destroy(team);
  }
  
  $parfor (int i: ($domain){ 0 .. 2 }) {
    thread(i);
  }
  $assert(data == 456);
  $omp_gshared_destroy(gshared);
  $omp_gteam_destroy(gteam);
}