OSDN Git Service

* gcc.c-torture/execute/960321-1.x: Remove.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / 930603-1.c
1 float fx (x)
2      float x;
3 {
4   return 1.0 + 3.0 / (2.302585093 * x);
5 }
6
7 main ()
8 {
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);
18 }
19
20 float inita () { return 3.0; }
21 float initc () { return 4.0; }
22 f () {}