URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [pr27416.c] - Diff between revs 298 and 338

Rev 298	Rev 338
`/* PR middle-end/27416 */`	`/* PR middle-end/27416 */`
`/* { dg-do compile } */`	`/* { dg-do compile } */`

`void`	`void`
`foo (void)`	`foo (void)`
`{`	`{`
`int i = 0, j = 0;`	`int i = 0, j = 0;`
`#pragma omp for firstprivate (j) /* { dg-error "is private in outer context" } */`	`#pragma omp for firstprivate (j) /* { dg-error "is private in outer context" } */`
`for (i = 0; i < 10; i++)`	`for (i = 0; i < 10; i++)`
`j++;`	`j++;`
`}`	`}`

`int`	`int`
`bar (void)`	`bar (void)`
`{`	`{`
`int i, j;`	`int i, j;`
`#pragma omp for lastprivate (j) /* { dg-error "is private in outer context" } */`	`#pragma omp for lastprivate (j) /* { dg-error "is private in outer context" } */`
`for (i = 0; i < 10; i++)`	`for (i = 0; i < 10; i++)`
`j = i;`	`j = i;`
`return j;`	`return j;`
`}`	`}`

`int`	`int`
`baz (void)`	`baz (void)`
`{`	`{`
`int i, j = 0;`	`int i, j = 0;`
`#pragma omp for reduction (+:j) /* { dg-error "is private in outer context" } */`	`#pragma omp for reduction (+:j) /* { dg-error "is private in outer context" } */`
`for (i = 0; i < 10; i++)`	`for (i = 0; i < 10; i++)`
`j++;`	`j++;`
`return j;`	`return j;`
`}`	`}`