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