1 files changed, 43 insertions, 0 deletions
diff --git a/tests/bc/scripts/bessel.bc b/tests/bc/scripts/bessel.bc
new file mode 100755
index 000000000000..b82eee30d19e
--- /dev/null
+++ b/tests/bc/scripts/bessel.bc
@@ -0,0 +1,43 @@
+#! /usr/bin/bc -q
+
+t[0] = 0
+t[1] = 0.5
+t[2] = 1
+t[3] = 1.5
+t[4] = 1.74
+t[5] = 2
+t[6] = 3.2345
+t[7] = 100
+t[8] = -0.5
+t[9] = -1
+t[10] = -1.5
+t[11] = -1.74
+t[12] = -2
+t[13] = -3.2345
+t[14] = -100
+
+l = 15
+
+a[0] = t[0]
+
+for (i = 1; i < l; ++i) {
+	a[i * 2 - 1] = t[i]
+	a[i * 2] = -t[i]
+}
+
+l *= 2
+l -= 1
+
+for (i = 0; i < l; ++i) {
+	for (j = 0; j < l; ++j) {
+		print "j(", a[i], ", ", a[j], ")\n"
+	}
+}
+
+# These are specific tests that bc could not pass at one time.
+print "j(3, 0.75)\n"
+print "scale = 0; j(40, 0.75)\n"
+
+print "halt\n"
+
+halt