URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [20001012-1.c] - Rev 689
Compare with Previous | Blame | View Log
/* { dg-do run { target fpic } } */ /* { dg-options "-O2 -fpic" } */ extern void abort (void); extern void exit (int); double foo (void) { return (__extension__ ((union { unsigned __l __attribute__((__mode__(__SI__))); float __d; }) { __l: 0x3f800000UL }).__d); } main () { if (foo() != 1.0) abort (); exit (0); }