OSDN Git Service

* gcc.c-torture/compile/20021120-1.c: New test.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / 960513-1.c
1 long double
2 f (d, i)
3      long double d;
4      int i;
5 {
6   long double e;
7
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;
18 }
19
20 main ()
21 {
22   if (! (int) (f (2.0L, 1)))
23     abort ();
24   exit (0);
25 }