/gcc/testsuite/gcc.dg/gomp/for-13.c

 1// At one point in development, a typo disabled the remapping of the
 2// for iteration variable as private.
 3
 4// { dg-do compile }
 5// { dg-options "-fopenmp -fdump-tree-ompexp" }
 6
 7extern void bar(int);
 8void foo(void)
 9{
10  int i;
11
12#pragma omp parallel for default(none)
13  for (i = 0; i < 10; i++)
14    bar(i);
15}
16
17// { dg-final { scan-tree-dump-times "omp_data_o" 0 "ompexp" } }
18// { dg-final { cleanup-tree-dump "ompexp" } }