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.0rc4/] [libgomp/] [testsuite/] [libgomp.c/] [pr34513.c] - Diff between revs 273 and 519

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

`#include <omp.h>`	`#include <omp.h>`

`extern void abort ();`	`extern 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 ();`
`return 0;`	`return 0;`
`}`	`}`