Import GNU bc 1.04

PR:		4183

1 files changed, 16 insertions, 0 deletions

diff --git a/contrib/bc/Test/aryprm.b b/contrib/bc/Test/aryprm.b
new file mode 100644
index 0000000..9d3f95b
--- /dev/null
+++ b/contrib/bc/Test/aryprm.b
@@ -0,0 +1,16 @@
+define p ( x[] ) {
+  auto i;
+  for (i=0; i<10; i++) x[i];
+}
+
+define m ( x[] ) {
+  auto i;
+  for (i=0; i<10; i++) x[i] *= 2;
+}
+    
+scale = 20;
+for (i=0; i<10; i++) a[i] = sqrt(i);
+
+p(a[]);
+m(a[]);
+p(a[]);