summaryrefslogtreecommitdiff
blob: 9c1ccb1ff22e7929ebc5aad10bbfd3b4ecac8765 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(fate_version 1)

(local (ptr int) p0)
(local (list (ptr int)) lp0)

(allocate! p0)

(set! (at p0) 72)

(assert! (= (at p0) 72)
   [FAILED] Test 0
)

(free! p0)

(list:add! (default (ptr int)) lp0)
(list:add! (default (ptr int)) lp0)
(list:add! (default (ptr int)) lp0)
(list:add! (default (ptr int)) lp0)

(allocate! lp0.0)
(allocate! (at (ptr lp0.1)))

[COMPLETED]

(end!)