libgomp/testsuite/libgomp.c/appendix-a/a.21.1.c

   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 }