OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [appendix-a/] [a.13.1.c] - Rev 154

Compare with Previous | Blame | View Log

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.