gcc/testsuite/gcc.dg/20001012-2.c

   1 /* { dg-do run { target sparc*-*-* } } */
   2 /* { dg-options "-O2 -fpic" } */
   3
   4 void foo (char *x, const char *y, ...)
   5 {
   6 }
   7
   8 double bar (const char *x, long y)
   9 {
  10   return 0.0;
  11 }
  12
  13 typedef __SIZE_TYPE__ size_t;
  14 extern size_t strlen (const char *);
  15
  16 double baz (const char *x)
  17 {
  18   if (x[0] != '\0')
  19     {
  20       char y[6 + strlen (x)];
  21       foo (y, "FOO", x);
  22       return bar (y, 0);
  23     }
  24
  25   return (__extension__ ((union { unsigned __l __attribute__((__mode__(__SI__))); float __d; }) { __l: 0x3f800000UL }).__d);
  26 }
  27
  28 main ()
  29 {
  30   if (baz("") != 1.0)
  31     abort ();
  32   exit (0);
  33 }