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/] [pr36802-3.c] - Diff between revs 273 and 519

Rev 273	Rev 519
`/* PR middle-end/36802 */`	`/* PR middle-end/36802 */`

`extern void abort (void);`	`extern void abort (void);`

`int q;`	`int q;`

`int`	`int`
`foo (int k)`	`foo (int k)`
`{`	`{`
`int i = 6, n = 0;`	`int i = 6, n = 0;`
`omp_set_dynamic (0);`	`omp_set_dynamic (0);`
`omp_set_nested (1);`	`omp_set_nested (1);`
`#pragma omp parallel shared (i) num_threads (3)`	`#pragma omp parallel shared (i) num_threads (3)`
`{`	`{`
`int l;`	`int l;`

`if (omp_get_num_threads () != 3)`	`if (omp_get_num_threads () != 3)`
`#pragma omp atomic`	`#pragma omp atomic`
`n += 1;`	`n += 1;`
`else`	`else`
`#pragma omp for`	`#pragma omp for`
`for (l = 0; l < 3; l++)`	`for (l = 0; l < 3; l++)`
`if (!k)`	`if (!k)`
`#pragma omp parallel shared (i) num_threads (4)`	`#pragma omp parallel shared (i) num_threads (4)`
`{`	`{`
`if (omp_get_num_threads () != 4)`	`if (omp_get_num_threads () != 4)`
`#pragma omp atomic`	`#pragma omp atomic`
`n += 1;`	`n += 1;`
`#pragma omp critical`	`#pragma omp critical`
`i += 1;`	`i += 1;`
`}`	`}`
`else`	`else`
`#pragma omp atomic`	`#pragma omp atomic`
`q += i;`	`q += i;`
`}`	`}`
`if (n == 0 && i != 6 + 3 * 4)`	`if (n == 0 && i != 6 + 3 * 4)`
`abort ();`	`abort ();`
`return 0;`	`return 0;`
`}`	`}`

`int`	`int`
`main (void)`	`main (void)`
`{`	`{`
`foo (0);`	`foo (0);`
`return 0;`	`return 0;`
`}`	`}`