Imported from /home/lorry/working-area/delta_bc-tarball/bc-1.06.tar.gz.bc-1.06

1 files changed, 16 insertions, 0 deletions

diff --git a/Test/aryprm.b b/Test/aryprm.b
new file mode 100644
index 0000000..9d3f95b
--- /dev/null
+++ b/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[]);