gcc/testsuite/gcc.dg/20001101-1.c

   1 /* { dg-do run { target sparc*-*-* } } */
   2 /* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */
   3
   4 int foo(double a, int b, int c, double *d, int h)
   5 {
   6   int f, g;
   7   double e;
   8
   9 l:
  10   f = (int) a;
  11   a -= (double) f;
  12   if (b == 1)
  13     {
  14       g = c;
  15       f += g;
  16       c -= g;
  17     }
  18   if (b == 2)
  19     {
  20       f++;
  21       h = c;
  22     }
  23   if (!h)
  24     {
  25       for (g = 0; g <= 10; g++)
  26         for (h = 0; h <= 10; h++)
  27           e += d [10 + g - h];
  28       goto l;
  29     }
  30   return f & 7;
  31 }
  32
  33 int main()
  34 {
  35   if (foo(0.1, 1, 3, 0, 1) != 3)
  36     abort ();
  37   exit (0);
  38 }