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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.c/] [appendix-a/] [a.36.1.c] - Diff between revs 816 and 826

Rev 816	Rev 826
`/* { dg-do run } */`	`/* { dg-do run } */`

`#include <omp.h>`	`#include <omp.h>`
`#include <stdlib.h>`	`#include <stdlib.h>`
`void`	`void`
`do_by_16 (float *x, int iam, int ipoints)`	`do_by_16 (float *x, int iam, int ipoints)`
`{`	`{`
`}`	`}`

`void`	`void`
`a36 (float *x, int npoints)`	`a36 (float *x, int npoints)`
`{`	`{`
`int iam, ipoints;`	`int iam, ipoints;`
`omp_set_dynamic (0);`	`omp_set_dynamic (0);`
`omp_set_num_threads (16);`	`omp_set_num_threads (16);`
`#pragma omp parallel shared(x, npoints) private(iam, ipoints)`	`#pragma omp parallel shared(x, npoints) private(iam, ipoints)`
`{`	`{`
`if (omp_get_num_threads () != 16)`	`if (omp_get_num_threads () != 16)`
`abort ();`	`abort ();`
`iam = omp_get_thread_num ();`	`iam = omp_get_thread_num ();`
`ipoints = npoints / 16;`	`ipoints = npoints / 16;`
`do_by_16 (x, iam, ipoints);`	`do_by_16 (x, iam, ipoints);`
`}`	`}`
`}`	`}`

`int main()`	`int main()`
`{`	`{`
`float a[10];`	`float a[10];`
`a36 (a, 10);`	`a36 (a, 10);`
`return 0;`	`return 0;`
`}`	`}`