a

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;
+}