tests/programs/interior.zc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;
}