blob: d0eb6e23ce0a4e56db36add6bb140da162a97a47 [file] [log] [blame]
/* { dg-do run { target sparc*-*-* } } */
/* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */
extern void abort (void);
extern void exit (int);
int foo(double a, int b, int c, double *d, int h)
{
int f, g;
double e;
l:
f = (int) a;
a -= (double) f;
if (b == 1)
{
g = c;
f += g;
c -= g;
}
if (b == 2)
{
f++;
h = c;
}
if (!h)
{
for (g = 0; g <= 10; g++)
for (h = 0; h <= 10; h++)
e += d [10 + g - h];
goto l;
}
return f & 7;
}
int main()
{
if (foo(0.1, 1, 3, 0, 1) != 3)
abort ();
exit (0);
}