aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/interior.zc
blob: d87a14c2e841ede59bf3f516f53d8991a4cd4577 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
namespace;
include rt;

unchecked fn main() {
	let p = rt.new(4), r, i = 0, t, bad = 0;
	rt.mem_set(4);
	p[0] = 111; p[1] = 222; p[2] = 333; p[3] = 444;
	r = p + 1;
	rt.free(p);
	rt.gc();
	while (i < 8) {
		t = rt.new(4);
		if (t == r - 1) bad = 1;
		i++;
	}
	if (r[0] != 222) bad = bad + 2;
	rt.put_n(bad);
	rt.put_c(10);
	return 0;
}