aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/interior.zc
diff options
context:
space:
mode:
Diffstat (limited to 'tests/programs/interior.zc')
-rw-r--r--tests/programs/interior.zc17
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;
+}