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

Subversion Repositories openrisc

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


float
f (float a1)
{
  union { float f; int l; } fl1;
  fl1.f = a1;
  return fl1.l ? 1.0 : a1;
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`float`
2			`f (float a1)`
3			`{`
4			`union { float f; int l; } fl1;`
5			`fl1.f = a1;`
6			`return fl1.l ? 1.0 : a1;`
7			`}`