Merge tag 'upstream/9.5.0'

Upstream version 9.5.0

1 files changed, 22 insertions, 0 deletions

diff --git a/tests/general/tprintf.icn b/tests/general/tprintf.icn
new file mode 100644
index 0000000..2ea8eb3
--- /dev/null
+++ b/tests/general/tprintf.icn
@@ -0,0 +1,22 @@
+#  test the library printf procedure
+#
+#  also incidentally tests large integers, real arithmetic, etc.
+
+link printf
+
+procedure main()
+   local v, vlist
+
+   vlist := [ -16r80000000, -16r7FFFFFFF, -16r40000000, -16r3FFFFFFF, 
+      -16r10000, -16RFFFF, -20104, -719, -2, -1, 0, 1, 2, 7, 15, 47, 11213,
+      16rFFFF, 16r10000, 16r7FFFFFFF, 16r80000000, 16rFFFFFFFF, 16r100000000,
+      0.125, &phi, &e, &pi, "4.56789", 16.0, 1024.0, 65536.0, 5e12, 6.02e23 ]
+
+   every v := !vlist | realseq() | -realseq() do
+      printf("%16s %15.3r %10.3e %11d %12o %9x\n", v, v, v, v, v, v)
+end
+
+procedure realseq()
+   suspend 0.0
+   suspend 10.0 ^ (-12 to 30) * (1.0 | 13./9 | 3./2 | 5./2. | 14./9 )
+end