1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
long double f (d, i) long double d; int i; { long double e; d = -d; e = d; if (i == 1) d *= 2; d -= e * d; d -= e * d; d -= e * d; d -= e * d; d -= e * d; return d; } main () { if (! (int) (f (2.0L, 1))) abort (); exit (0); }