2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 960513-1.c
blobacc263ca6c83cdfe6a99c002cf9661c845b856b5
1 long double
2 f (d, i)
3 long double d;
4 int i;
6 long double e;
8 d = -d;
9 e = d;
10 if (i == 1)
11 d *= 2;
12 d -= e * d;
13 d -= e * d;
14 d -= e * d;
15 d -= e * d;
16 d -= e * d;
17 return d;
20 main ()
22 if (! (int) (f (2.0L, 1)))
23 abort ();
24 exit (0);