OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [pr32897.c] - Blame information for rev 298

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 298 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
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.