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