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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [920501-3.c] - Blame information for rev 149

Line No.	Rev	Author	Line
1	149	jeremybenn	`int tab[9];`
2			`execute(oip, ip)`
3			`unsigned short oip, ip;`
4			`{`
5			`#ifndef NO_LABEL_VALUES`
6			`int x = 0;`
7			`int *xp = tab;`
8			`base:`
9			`x++;`
10			`if (x == 4)`
11			`{`
12			`*xp = 0;`
13			`return;`
14			`}`
15			`*xp++ = ip - oip;`
16			`goto (&&base + ip++);`
17			`#else`
18			`tab[0] = 0;`
19			`tab[1] = 1;`
20			`tab[2] = 2;`
21			`tab[3] = 0;`
22			`#endif`
23			`}`
24
25			`main()`
26			`{`
27			`unsigned short ip[10];`
28			`int i;`
29			`for (i = 0; i < 10; i++)`
30			`ip[i] = 0;`
31			`execute(ip, ip);`
32			`if (tab[0] != 0 \|\| tab[1] != 1 \|\| tab[2] != 2 \|\| tab[3] != 0)`
33			`abort();`
34			`exit(0);`
35			`}`