summaryrefslogtreecommitdiff
path: root/Test/floats/float20.bpl
diff options
context:
space:
mode:
Diffstat (limited to 'Test/floats/float20.bpl')
-rw-r--r--Test/floats/float20.bpl14
1 files changed, 14 insertions, 0 deletions
diff --git a/Test/floats/float20.bpl b/Test/floats/float20.bpl
new file mode 100644
index 00000000..57c605fd
--- /dev/null
+++ b/Test/floats/float20.bpl
@@ -0,0 +1,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));
+} \ No newline at end of file