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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [pr52298.c] - Blame information for rev 749

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do run } */`
2			`/* { dg-options "-O1 -ftree-vectorize -fno-tree-pre -fno-tree-loop-im" } */`
3
4			`extern void abort (void);`
5			`int c[80];`
6
7			`__attribute__((noinline)) int`
8			`foo (void)`
9			`{`
10			`int l = 0;`
11			`int a, b;`
12
13			`for (a = 3; a >= 0; a--)`
14			`for (b = 7; b >= 0; b--)`
15			`l \|= c[a+60];`
16			`return l;`
17			`}`
18
19			`int`
20			`main ()`
21			`{`
22			`int i;`
23			`for (i = 0; i < 60; i++)`
24			`c[i] = 1;`
25			`for (; i < 64; i++)`
26			`c[i] = 1 << (i - 59);`
27			`if (foo () != 30)`
28			`abort ();`
29			`return 0;`
30			`}`
31