summaryrefslogtreecommitdiff
blob: 89982361f5a87d7396c650395ecd662be8099bec (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
27
(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! (at p0))

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

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

[COMPLETED]

(end!)