From c19c2495497d0dfa7aaf871cf833cd5e5f986d33 Mon Sep 17 00:00:00 2001
From: Checkmate50 <dgeisler50@gmail.com>
Date: Tue, 31 May 2016 12:59:38 -0600
Subject: moved all the tests to the testing folder

---
 Test/floats/test15.bpl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 Test/floats/test15.bpl

(limited to 'Test/floats/test15.bpl')

diff --git a/Test/floats/test15.bpl b/Test/floats/test15.bpl
new file mode 100644
index 00000000..1dc549ac
--- /dev/null
+++ b/Test/floats/test15.bpl
@@ -0,0 +1,24 @@
+//Translation from Muller_Kahan.c
+//Should Verify
+//NOTE:  (fp(....)) causes a compiler error!
+//FAILS!  Heavily...
+
+procedure main() returns () {
+	var x0 : float(11 53);
+	var x1 : float(11 53);
+	var x2 : float(11 53);
+	var i : int;
+	
+	x0 := fp(11 11 53) / fp(2 11 53);
+	x1 := fp(61 11 53) / fp(11 11 53);
+	i := 0;
+	while (i < 100) {
+		x2 := fp(1130 11 53) - fp(3000 11 53) / x0;
+		x2 := fp(111 11 53) - x2 / x1;
+		x0 := x1;
+		x1 := x2;
+		i := i + 1;
+	}
+	
+	assert(x0 >= fp(99 11 53) && x0 <= fp(101 11 53));
+}
\ No newline at end of file
-- 
cgit v1.2.3