clang-tests/gcc-4_2-testsuite/src/gcc.dg/gomp/appendix-a/a.26.2.c

/* { dg-do compile } */
/* { dg-options "-fopenmp -std=c99" } */

int a;
void
g (int k)
{
  a = k;			/* The global "a", not the private "a" in f */
}

void
f (int n)
{
  int a = 0;
#pragma omp parallel for private(a)
  for (int i = 1; i < n; i++)
    {
      a = i;
      g (a * 2);		/* Private copy of "a" */
    }
}