OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* 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 () {}