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/] [appendix-a/] [a.15.1.c] - Diff between revs 273 and 338

Rev 273	Rev 338
`/* { dg-do run } */`	`/* { dg-do run } */`

`#include <stdio.h>`	`#include <stdio.h>`

`void`	`void`
`work (int n)`	`work (int n)`
`{`	`{`
`printf ("[%d of %d], nested = %d, n = %d\n", omp_get_thread_num (), omp_get_num_threads(), omp_get_nested (), n);`	`printf ("[%d of %d], nested = %d, n = %d\n", omp_get_thread_num (), omp_get_num_threads(), omp_get_nested (), n);`
`}`	`}`

`void`	`void`
`sub3 (int n)`	`sub3 (int n)`
`{`	`{`
`work (n);`	`work (n);`
`#pragma omp barrier`	`#pragma omp barrier`
`work (n);`	`work (n);`
`}`	`}`

`void`	`void`
`sub2 (int k)`	`sub2 (int k)`
`{`	`{`
`#pragma omp parallel shared(k)`	`#pragma omp parallel shared(k)`
`sub3 (k);`	`sub3 (k);`
`}`	`}`

`void`	`void`
`sub1 (int n)`	`sub1 (int n)`
`{`	`{`
`int i;`	`int i;`
`#pragma omp parallel private(i) shared(n)`	`#pragma omp parallel private(i) shared(n)`
`{`	`{`
`#pragma omp for`	`#pragma omp for`
`for (i = 0; i < n; i++)`	`for (i = 0; i < n; i++)`
`sub2 (i);`	`sub2 (i);`
`}`	`}`
`}`	`}`
`int`	`int`
`main ()`	`main ()`
`{`	`{`
`sub1 (2);`	`sub1 (2);`
`sub2 (15);`	`sub2 (15);`
`sub3 (20);`	`sub3 (20);`
`return 0;`	`return 0;`
`}`	`}`