1/* { dg-do run } */
2
3#include <stdio.h>
4void
5work (int k)
6{
7#pragma omp ordered
8  printf (" %d\n", k);
9}
10
11void
12a21 (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
20int
21main ()
22{
23  a21 (0, 100, 5);
24  return 0;
25}
26