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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [920411-1.c] - Blame information for rev 801

Line No.	Rev	Author	Line
1	688	jeremybenn	`long f (w)`
2			`char *w;`
3			`{`
4			`long k, i, c = 0, x;`
5			`char p = (char) &x;`
6			`for (i = 0; i < 1; i++)`
7			`{`
8			`for (k = 0; k < sizeof (long); k++)`
9			`p[k] = w[k];`
10			`c += x;`
11			`}`
12			`return c;`
13			`}`
14
15			`main ()`
16			`{`
17			`int i;`
18			`char a[sizeof (long)];`
19
20			`for (i = sizeof (long); --i >= 0;) a[i] = ' ';`
21			`if (f (a) != ~0UL / (unsigned char) ~0 * ' ')`
22			`abort ();`
23			`exit (0);`
24			`}`