1  /* { dg-do compile } */
       2  /* { dg-options "-fopenmp -std=c99" } */
       3  
       4  int a;
       5  void
       6  g (int k)
       7  {
       8    a = k;			/* The global "a", not the private "a" in f */
       9  }
      10  
      11  void
      12  f (int n)
      13  {
      14    int a = 0;
      15  #pragma omp parallel for private(a)
      16    for (int i = 1; i < n; i++)
      17      {
      18        a = i;
      19        g (a * 2);		/* Private copy of "a" */
      20      }
      21  }