Subversion Repositories openrisc

/* { 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);

  }

}