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 
7 extern void bar(int);
foo(void)8 void 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" } }
19