blob: 57c605fdbed5380f2bd260392155f16247a1480f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
//Should return an error?
//Translation from Rump_double.c
procedure main() returns () {
var x : float(11 53);
var y : float(11 53);
var r : float(11 53);
x := fp(77617 11 53);
y := fp(33096 11 53);
r := y*y*y*y*y*y * fp(333.75 11 53) + x*x * (x*x*y*y*fp(11 11 53) - y*y*y*y*y*y - y*y*y*y * fp(121 11 53) - fp(2 11 53)) + y*y*y*y*y*y*y*y * fp(5.5 11 53) + x / (y*fp(2 11 53));
assert(r >= fp(0 11 53));
}
|