1  /* { dg-do compile } */
       2  
       3  void
       4  work (int i)
       5  {
       6  }
       7  
       8  void
       9  a21_wrong (int n)
      10  {
      11    int i;
      12  #pragma omp for ordered
      13    for (i = 0; i < n; i++)
      14      {
      15  /* incorrect because an iteration may not execute more than one
      16      ordered region */
      17  #pragma omp ordered
      18        work (i);
      19  #pragma omp ordered
      20        work (i + 1);
      21      }
      22  }