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