source: CIVL/examples/omp/dataracebench-1.3.2/micro-benchmarks/DRB172-critical2-orig-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)
!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
 */

/* This kernel imitates the nature of a program from the NAS Parallel Benchmarks 3.0 MG suit.
 * The private(i) inline 27 and explicit barrier inline 35 will ensure synchronized behavior.
 * No Data Race Pairs.
 */

#include <omp.h>
#include <stdio.h>

int main(){
  int i;
  double q[10], qq[10];

  for (i = 0; i < 10; i++) qq[i] = (double)i;
  for (i = 0; i < 10; i++) q[i] = (double)i;

  #pragma omp parallel default(shared)
  {
    #pragma omp for private(i)
    for (i = 0; i < 10; i++)
      q[i] += qq[i];

    #pragma omp critical
    {
      q[9] += 1.0;
    }
    #pragma omp barrier
    #pragma omp single
    {
      q[9] = q[9] - 1.0;
    }

  } 

  for (i = 0; i < 10; i++)printf("%f %f\n",qq[i],q[i]);

  return 0;
}