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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [pr49640.c] - Blame information for rev 689

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* PR middle-end/49640 */`
2			`/* { dg-do compile } */`
3			`/* { dg-options "-O2 -std=gnu99 -fopenmp" } */`
4
5			`void`
6			`foo (int N, int M, int K, int P, int Q, int R, int i, int j, int k,`
7			`unsigned char x[P][Q][R], int y[N][M][K])`
8			`{`
9			`int ii, jj, kk;`
10
11			`#pragma omp parallel for private(ii,jj,kk)`
12			`for (ii = 0; ii < P; ++ii)`
13			`for (jj = 0; jj < Q; ++jj)`
14			`for (kk = 0; kk < R; ++kk)`
15			`y[i + ii][j + jj][k + kk] = x[ii][jj][kk];`
16			`}`
17
18			`void`
19			`bar (int N, int M, int K, int P, int Q, int R, int i, int j, int k,`
20			`unsigned char x[P][Q][R], float y[N][M][K], float factor, float zero)`
21			`{`
22			`int ii, jj, kk;`
23
24			`#pragma omp parallel for private(ii,jj,kk)`
25			`for (ii = 0; ii < P; ++ii)`
26			`for (jj = 0; jj < Q; ++jj)`
27			`for (kk = 0; kk < R; ++kk)`
28			`y[i + ii][j + jj][k + kk] = factor * x[ii][jj][kk] + zero;`
29			`}`