2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 930603-1.c
blob6a84de035629cb68e2b235fde4ed7b3c6be223ca
1 float fx (x)
2 float x;
4 return 1.0 + 3.0 / (2.302585093 * x);
7 main ()
9 float fx (), inita (), initc (), a, b, c;
10 a = inita ();
11 c = initc ();
12 f ();
13 b = fx (c) + a;
14 f ();
15 if (a != 3.0 || b < 4.3257 || b > 4.3258 || c != 4.0)
16 abort ();
17 exit (0);
20 float inita () { return 3.0; }
21 float initc () { return 4.0; }
22 f () {}