1 long double
f(d,i)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 
main()20 main ()
21 {
22   if (! (int) (f (2.0L, 1)))
23     abort ();
24   exit (0);
25 }
26