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/] [collapse-2.c] - Diff between revs 273 and 338

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

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

`int`	`int`
`main (void)`	`main (void)`
`{`	`{`
`int i, j, k, l = 0, f = 0;`	`int i, j, k, l = 0, f = 0;`
`int m1 = 4, m2 = -5, m3 = 17;`	`int m1 = 4, m2 = -5, m3 = 17;`

`#pragma omp parallel for num_threads (8) collapse(3) \`	`#pragma omp parallel for num_threads (8) collapse(3) \`
`schedule(static, 9) reduction(+:l) \`	`schedule(static, 9) reduction(+:l) \`
`firstprivate(f)`	`firstprivate(f)`
`for (i = -2; i < m1; i++)`	`for (i = -2; i < m1; i++)`
`for (j = m2; j < -2; j++)`	`for (j = m2; j < -2; j++)`
`{`	`{`
`for (k = 13; k < m3; k++)`	`for (k = 13; k < m3; k++)`
`{`	`{`
`if (omp_get_num_threads () == 8`	`if (omp_get_num_threads () == 8`
`&& ((i + 2) * 12 + (j + 5) * 4 + (k - 13)`	`&& ((i + 2) * 12 + (j + 5) * 4 + (k - 13)`
`!= (omp_get_thread_num () * 9`	`!= (omp_get_thread_num () * 9`
`+ f++)))`	`+ f++)))`
`l++;`	`l++;`
`}`	`}`
`}`	`}`
`if (l)`	`if (l)`
`abort ();`	`abort ();`
`return 0;`	`return 0;`
`}`	`}`