aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/growone.zc
diff options
context:
space:
mode:
Diffstat (limited to 'tests/programs/growone.zc')
-rw-r--r--tests/programs/growone.zc9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/programs/growone.zc b/tests/programs/growone.zc
new file mode 100644
index 0000000..12980ff
--- /dev/null
+++ b/tests/programs/growone.zc
@@ -0,0 +1,9 @@
+// one block bigger than the initial heap: the machine grows, and the block is usable
+fn main() {
+ let a = new(400000);
+ a[0] = 5;
+ a[399999] = 7;
+ put_n(a[0] + a[399999]); put_c(' ');
+ put_n(heap_size() >= 400000); put_c(10);
+ return 0;
+}