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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [pr26412.c] - Diff between revs 149 and 154

Rev 149	Rev 154
`/* PR middle-end/26412 */`	`/* PR middle-end/26412 */`
`/* { dg-do compile } */`	`/* { dg-do compile } */`

`extern double a[];`	`extern double a[];`
`extern int b;`	`extern int b;`

`double`	`double`
`test (void)`	`test (void)`
`{`	`{`
`int i;`	`int i;`
`double c = 0;`	`double c = 0;`

`#pragma omp parallel for private(i) reduction(+:c)`	`#pragma omp parallel for private(i) reduction(+:c)`
`for (i = 0; i < 10000; i++)`	`for (i = 0; i < 10000; i++)`
`c += a[b];`	`c += a[b];`

`return c;`	`return c;`
`}`	`}`