xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.c/appendix-a/a.21.1.c (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1*404b540aSrobert /* { dg-do run } */
2*404b540aSrobert 
3*404b540aSrobert #include <stdio.h>
4*404b540aSrobert void
work(int k)5*404b540aSrobert work (int k)
6*404b540aSrobert {
7*404b540aSrobert #pragma omp ordered
8*404b540aSrobert   printf (" %d\n", k);
9*404b540aSrobert }
10*404b540aSrobert 
11*404b540aSrobert void
a21(int lb,int ub,int stride)12*404b540aSrobert a21 (int lb, int ub, int stride)
13*404b540aSrobert {
14*404b540aSrobert   int i;
15*404b540aSrobert #pragma omp parallel for ordered schedule(dynamic)
16*404b540aSrobert   for (i = lb; i < ub; i += stride)
17*404b540aSrobert     work (i);
18*404b540aSrobert }
19*404b540aSrobert 
20*404b540aSrobert int
main()21*404b540aSrobert main ()
22*404b540aSrobert {
23*404b540aSrobert   a21 (0, 100, 5);
24*404b540aSrobert   return 0;
25*404b540aSrobert }
26