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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr42196-1.c] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log


union U
{
  double d;
  __complex__ int c;
};
 
double gd;
extern double bar (union U);
 
double foo (int b, double d, int c1, int c2)
{
  union U u;
  double r;
 
  if (b)
    {
      u.d = d;
      r = u.d;
    }
  else
    {
      __real__ u.c = c1;
      __imag__ u.c = c2;
      r = bar (u);
    }
 
  return r;
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`union U`
2			`{`
3			`double d;`
4			`__complex__ int c;`
5			`};`
6
7			`double gd;`
8			`extern double bar (union U);`
9
10			`double foo (int b, double d, int c1, int c2)`
11			`{`
12			`union U u;`
13			`double r;`
14
15			`if (b)`
16			`{`
17			`u.d = d;`
18			`r = u.d;`
19			`}`
20			`else`
21			`{`
22			`__real__ u.c = c1;`
23			`__imag__ u.c = c2;`
24			`r = bar (u);`
25			`}`
26
27			`return r;`
28			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr42196-1.c] - Blame information for rev 774