diff options
Diffstat (limited to 'tests/programs/ftext.zc')
| -rw-r--r-- | tests/programs/ftext.zc | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/tests/programs/ftext.zc b/tests/programs/ftext.zc index b1c0acf..bb52d1a 100644 --- a/tests/programs/ftext.zc +++ b/tests/programs/ftext.zc @@ -1,9 +1,12 @@ -fn sp() { put_c(32); return 0; } +namespace; +include rt; + +fn sp() { rt.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); + if (w) rt.put_n(0); else rt.put_n(1); return 0; } @@ -28,10 +31,10 @@ fn main() { 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); + if (hi == lo) rt.put_n(0); else rt.put_n(1); + if (parsed("5e-324")) rt.put_n(1); else rt.put_n(0); + if (parsed("1e-400")) rt.put_n(0); else rt.put_n(1); + if (parsed("-nan") == parsed("nan")) rt.put_n(0); else rt.put_n(1); + rt.put_c(10); return 0; } |