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);
       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" } }