a

1 files changed, 37 insertions, 0 deletions

diff --git a/tests/programs/ftext.zc b/tests/programs/ftext.zc
new file mode 100644
index 0000000..b1c0acf
--- /dev/null
+++ b/tests/programs/ftext.zc
@@ -0,0 +1,37 @@
+fn sp() { put_c(32); return 0; }
+fn pm(x, prec, mode) { asm { x @ prec @ mode @ #1236 } return 0; }
+fn parsed(s) { return asm { s @ #1222 }; }
+fn ok(a, b) {
+	let w = asm { a @ b @ ^ };
+	if (w) put_n(0); else put_n(1);
+	return 0;
+}
+
+fn main() {
+	let z = 0.0 * -1.0;
+	let hi = parsed("9007199254740994");
+	let lo = parsed("9007199254740992");
+	pm(1.0e308, 0, 0); sp();
+	pm(1.0e-10, 0, 0); sp();
+	pm(z, 0, 0); sp();
+	pm(1.0 / 0.0, 0, 0); sp();
+	pm(-1.0 / 0.0, 0, 0); sp();
+	pm(0.0 / 0.0, 0, 0); sp();
+	pm(0.1, 0, 0); sp();
+	pm(1.5, 2, 1); sp();
+	pm(1.25, 4, 2); sp();
+	pm(1.0e20, 6, 1); sp();
+	pm(1.0e40, 0, 0); sp();
+	ok(parsed("1.5"), 3.0 / 2.0);
+	ok(parsed("0.1"), 1.0 / 10.0);
+	ok(parsed("inf"), 1.0 / 0.0);
+	ok(parsed("-inf"), -1.0 / 0.0);
+	ok(parsed("-0"), z);
+	ok(parsed("9007199254740993"), lo);
+	if (hi == lo) put_n(0); else put_n(1);
+	if (parsed("5e-324")) put_n(1); else put_n(0);
+	if (parsed("1e-400")) put_n(0); else put_n(1);
+	if (parsed("-nan") == parsed("nan")) put_n(0); else put_n(1);
+	put_c(10);
+	return 0;
+}