From 9a23b07c4c0d06c40d7c0ce91c5fdf7c8449ac49 Mon Sep 17 00:00:00 2001 From: Denys Vlasenko Date: Wed, 12 Dec 2018 21:41:40 +0100 Subject: testsuite: add bc and dc tests Signed-off-by: Denys Vlasenko --- testsuite/bc_array.bc | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 testsuite/bc_array.bc (limited to 'testsuite/bc_array.bc') diff --git a/testsuite/bc_array.bc b/testsuite/bc_array.bc new file mode 100644 index 000000000..3bb680178 --- /dev/null +++ b/testsuite/bc_array.bc @@ -0,0 +1,35 @@ +#! /usr/bin/bc -q + +define z(a[]) { + for (i = 0; i < l; ++i) { + a[i] + } +} + +define x(a[]) { + + for (i = 0; i < l; ++i) { + a[i] = -i + } + + z(a[]) +} + +for (i = 0; i < 101; ++i) { + a[i] = i +} + +a[104] = 204 + +l = length(a[]) + +for (i = 0; i <= l; ++i) { + a[i] +} + +z(a[]) +x(a[]) +z(a[]) +l + +halt -- cgit v1.2.3