gcc/testsuite/gcc.dg/gomp/pr27388-3.c

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