diff options
Diffstat (limited to 'contrib/bc/tests/bc/scripts/multiply_03100.bc')
| -rw-r--r-- | contrib/bc/tests/bc/scripts/multiply_03100.bc | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/contrib/bc/tests/bc/scripts/multiply_03100.bc b/contrib/bc/tests/bc/scripts/multiply_03100.bc new file mode 100644 index 000000000000..a39ef85bdfc5 --- /dev/null +++ b/contrib/bc/tests/bc/scripts/multiply_03100.bc @@ -0,0 +1,20 @@ +#! /usr/bin/bc -lq + +scale = 20 +x = 1234567890 / scale +len = length(x) + 1 + scale + +for (i = 0; i <= len; ++i) { + a[i] = x * (10^i) + a[i] +} + +for (i = 3001; i <= 3100; ++i) { + for (j = 0; j < len; ++j) { + a[0] * a[j] + a[i] * a[j] + (a[0] * i) * a[j] + a[0] * (a[j] * i) + (a[0] * i) * (a[j] * i) + } +} |