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-2.c] - Rev 310
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run { target fpic } } */ /* { dg-options "-O2 -fpic" } */ extern void abort (void); extern void exit (int); void foo (char *x, const char *y, ...) { } double bar (const char *x, long y) { return 0.0; } typedef __SIZE_TYPE__ size_t; extern size_t strlen (const char *); double baz (const char *x) { if (x[0] != '\0') { char y[6 + strlen (x)]; foo (y, "FOO", x); return bar (y, 0); } return (__extension__ ((union { unsigned __l __attribute__((__mode__(__SI__))); float __d; }) { __l: 0x3f800000UL }).__d); } main () { if (baz("") != 1.0) abort (); exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log