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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [pr32897.c] - Blame information for rev 774

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-options "-G0" { target mips--* } } */`
2
3			`volatile int g[32];`
4			`long long gll;`
5			`double gd;`
6
7			`#define MULTI(X) \`
8			`X( 1), X( 2), X( 3), X( 4), X( 5), X( 6), X( 7), X( 8), X( 9), X(10), \`
9			`X(11), X(12), X(13), X(14), X(15), X(16), X(17), X(18), X(19), X(20), \`
10			`X(21), X(22), X(23), X(24), X(25), X(26), X(27), X(28), X(29), X(30)`
11
12			`#define DECLARE(INDEX) x##INDEX`
13			`#define COPY_IN(INDEX) x##INDEX = g[INDEX]`
14			`#define COPY_OUT(INDEX) g[INDEX] = x##INDEX`
15
16			`void`
17			`test (int n)`
18			`{`
19			`union { long long l; double d; } u = { 0x12345678 };`
20			`gll = u.l;`
21			`int MULTI (DECLARE);`
22			`MULTI (COPY_IN);`
23			`MULTI (COPY_OUT);`
24			`MULTI (COPY_OUT);`
25			`MULTI (COPY_OUT);`
26			`gd = u.d;`
27			`}`