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/] [20001012-1.c] - Rev 298
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); }