source: CIVL/examples/omp/dataracebench-1.3.2/micro-benchmarks/DRB149-missingdata1-orig-gpu-no.c@ 8190175

/*
!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
!!! 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)
!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
 */

/*
Data Race free matrix vector multiplication using target construct.
*/

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

int *a;
int *b;
int *c;

int main(){
  a = malloc(C*sizeof(int));
  b = malloc(C*C*sizeof(int));
  c = malloc(C*sizeof(int));

  for(int i=0; i<C; i++){
    for(int j=0; j<C; j++){
      b[j+i*C]=1;
    }
    a[i]=1;
    c[i]=0;
  }

  #pragma omp target map(to:a[0:C],b[0:C*C]) map(tofrom:c[0:C]) device(0)
  {
    #pragma omp teams distribute parallel for
    for(int i=0; i<C; i++){
      for(int j=0; j<C; j++){
        c[i]+=b[j+i*C]*a[j];
      }
    }
  }

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

  free(a);
  free(b);
  free(c);

  return 0;
}