1 files changed, 32 insertions, 0 deletions
diff --git a/tests/programs/float.zc b/tests/programs/float.zc
new file mode 100644
index 0000000..81b8668
--- /dev/null
+++ b/tests/programs/float.zc
@@ -0,0 +1,32 @@
+fn put_f(x) { asm { x @ #1220 } return 0; }
+fn f2i(x) { return asm { x @ #1218 }; }
+fn i2f(x) { return asm { x @ #1216 }; }
+fn sp() { put_c(32); return 0; }
+
+fn main() {
+	let a = 1.5;
+	let b = 2.5;
+	put_f(a + b); sp();
+	put_f(7.0 - 2.5); sp();
+	put_f(1.5 * 2); sp();
+	put_f(10.0 / 4.0); sp();
+	put_f(1 + 1.5); sp();
+	put_f(1.5e-3); sp();
+	put_f(0.1); sp();
+	put_f(-0.125); sp();
+	put_f(1.0 / 0.0); sp();
+	put_f(-1.0 / 0.0); sp();
+	put_f(0.0 / 0.0); sp();
+	put_n(1.5 < 2.0); sp();
+	put_n(2.0 <= 2.0); sp();
+	put_n(2.0 == 2); sp();
+	put_n(1.5 == 1); sp();
+	put_n(3.0 > 3.5); sp();
+	put_n(f2i(3.9)); sp();
+	put_n(f2i(-3.9)); sp();
+	put_f(i2f(3)); sp();
+	put_f(i2f(-2)); sp();
+	put_n(10 / 4);
+	put_c(10);
+	return 0;
+}