URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.dg/] [20001012-1.c] - Rev 12
Compare with Previous | Blame | View Log
/* { dg-do run { target sparc*-*-* } } */ /* { 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); }