1  /* { dg-do run } */
       2  
       3  #include <stdio.h>
       4  void
       5  work (int k)
       6  {
       7  #pragma omp ordered
       8    printf (" %d\n", k);
       9  }
      10  
      11  void
      12  a21 (int lb, int ub, int stride)
      13  {
      14    int i;
      15  #pragma omp parallel for ordered schedule(dynamic)
      16    for (i = lb; i < ub; i += stride)
      17      work (i);
      18  }
      19  
      20  int
      21  main ()
      22  {
      23    a21 (0, 100, 5);
      24    return 0;
      25  }