gcc/testsuite/gcc.dg/gomp/appendix-a/a.13.1.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

/* { dg-do compile } */

int dequeue (float *a);
void work (int i, float *a);
void
a13 (float *x, float *y)
{
  int ix_next, iy_next;
#pragma omp parallel shared(x, y) private(ix_next, iy_next)
  {
#pragma omp critical (xaxis)
    ix_next = dequeue (x);
    work (ix_next, x);
#pragma omp critical (yaxis)
    iy_next = dequeue (y);
    work (iy_next, y);
  }
}