1 files changed, 25 insertions, 0 deletions
diff --git a/contrib/bc/tests/bc/scripts/print.bc b/contrib/bc/tests/bc/scripts/print.bc
new file mode 100755
index 000000000000..9530cbdb3fc2
--- /dev/null
+++ b/contrib/bc/tests/bc/scripts/print.bc
@@ -0,0 +1,25 @@
+#! /usr/bin/bc -q
+
+for (b = 2; b <= 100; ++b) {
+
+	if (b == 10) continue
+
+	s = b * b
+
+	print "obase = ", b, "\n"
+	print "\qobase = \q\n"
+	b
+
+	for (i = 0; i <= s; ++i) {
+		i
+		print "0.", i, "\n"
+		print ".", i, "\n"
+		print "1.", i, "\n"
+		print i, ".", "\n"
+		print i, ".", i, "\n"
+	}
+
+	2189432174861923048671023498128347619023487610234689172304.192748960128745108927461089237469018723460
+}
+
+halt