a

1 files changed, 17 insertions, 0 deletions

diff --git a/tests/programs/interior.zc b/tests/programs/interior.zc
new file mode 100644
index 0000000..bccf377
--- /dev/null
+++ b/tests/programs/interior.zc
@@ -0,0 +1,17 @@
+unchecked fn main() {
+	let p = new(4), r, i = 0, t, bad = 0;
+	mem_set(4);
+	p[0] = 111; p[1] = 222; p[2] = 333; p[3] = 444;
+	r = p + 1;
+	free(p);
+	gc();
+	while (i < 8) {
+		t = new(4);
+		if (t == r - 1) bad = 1;
+		i++;
+	}
+	if (r[0] != 222) bad = bad + 2;
+	put_n(bad);
+	put_c(10);
+	return 0;
+}