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/] [libgomp/] [testsuite/] [libgomp.c++/] [pr34513.C] - Diff between revs 273 and 338

Rev 273	Rev 338
`// PR c++/34513`	`// PR c++/34513`
`// { dg-do run }`	`// { dg-do run }`

`#include`	`#include`

`extern "C" void abort ();`	`extern "C" void abort ();`

`static int errors = 0;`	`static int errors = 0;`
`static int thrs = 4;`	`static int thrs = 4;`

`int`	`int`
`main ()`	`main ()`
`{`	`{`
`omp_set_dynamic (0);`	`omp_set_dynamic (0);`

`#pragma omp parallel num_threads (thrs)`	`#pragma omp parallel num_threads (thrs)`
`{`	`{`
`static int shrd = 0;`	`static int shrd = 0;`

`#pragma omp atomic`	`#pragma omp atomic`
`shrd += 1;`	`shrd += 1;`

`#pragma omp barrier`	`#pragma omp barrier`

`if (shrd != thrs)`	`if (shrd != thrs)`
`#pragma omp atomic`	`#pragma omp atomic`
`errors += 1;`	`errors += 1;`
`}`	`}`

`if (errors)`	`if (errors)`
`abort ();`	`abort ();`
`}`	`}`