| /* { dg-do run } */ | |
| #include <stdio.h> | |
| void | |
| work (int k) | |
| { | |
| #pragma omp ordered | |
| printf (" %d\n", k); | |
| } | |
| void | |
| a21 (int lb, int ub, int stride) | |
| { | |
| int i; | |
| #pragma omp parallel for ordered schedule(dynamic) | |
| for (i = lb; i < ub; i += stride) | |
| work (i); | |
| } | |
| int | |
| main () | |
| { | |
| a21 (0, 100, 5); | |
| return 0; | |
| } |