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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [scop-sor.c] - Blame information for rev 801

Line No.	Rev	Author	Line
1	689	jeremybenn	`#define SIZE 10000`
2
3			`static double P[SIZE][SIZE];`
4
5			`void sor(int N1, int N2){`
6			`int i, j, k;`
7
8			`#pragma scop`
9			`for(i=1; i<N1-1; i++) {`
10			`for(j=1; j<N2-1; j++) {`
11			`P[i][j] = (P[i][j] + P[i][j-1] + P[i][j+1] + P[i-1][j] + P[i+1][j]) / 5;`
12			`}`
13			`}`
14			`#pragma endscop`
15			`}`
16
17			`/* { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite" } } */`
18			`/* { dg-final { cleanup-tree-dump "graphite" } } */`