1  /* PR middle-end/27388 */
       2  /* { dg-do compile } */
       3  /* { dg-options "-fopenmp -fdump-tree-omplower" } */
       4  
       5  int n, o;
       6  
       7  void
       8  foo (void)
       9  {
      10  #pragma omp parallel firstprivate (n)
      11    {
      12      int i;
      13  #pragma omp parallel for firstprivate (n)
      14      for (i = 0; i < 10; i++)
      15        ++n;
      16  #pragma omp atomic
      17      o += n;
      18    }
      19  }
      20  
      21  /* { dg-final { scan-tree-dump-times "shared\\\(i\\\)" 0 "omplower" } } */
      22  /* { dg-final { scan-tree-dump-times "private\\\(i\\\)" 1 "omplower" } } */