source: CIVL/examples/omp/dataracebench-1.3.2/micro-benchmarks/original/DRB158-missingtaskbarrier-orig-gpu-no.c

/*
!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
!!! Copyright (c) 2017-20, Lawrence Livermore National Security, LLC
!!! and DataRaceBench project contributors. See the DataRaceBench/COPYRIGHT file for details.
!!!
!!! SPDX-License-Identifier: (BSD-3-Clause)
!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
*/

/*
Depend clause at line 33 and 37 will ensure that there is no data race. There is an implicit barrier after tasks execution.
*/

#include <stdio.h>
#include <stdlib.h>
#include <omp.h>
#define C 64

float a;
float x[C];
float y[C];

int main(){
  for(int i=0; i<C; i++){
    a=5;
    x[i]=0;
    y[i]=3;
  }

  #pragma omp target map(to:y[0:C],a) map(tofrom:x[0:C]) device(0)
  {
    for(int i=0; i<C; i++){
      #pragma omp task depend(inout:x[i])
      {
        x[i] = a * x[i];
      }
      #pragma omp task depend(inout:x[i])
      {
        x[i] = x[i] + y[i];
      }
    }
  }

  for(int i=0; i<C; i++){
    if(x[i]!=3){
      printf("Data Race Detected\n");
      return 0;
    }
  }

  #pragma omp taskwait
  return 0;
}