blob: c7df9e6d365363252164251ca69bc79488b9672d (
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
|
(fate_version 1)
(global (list int) li)
(global (ptr (list int)) li_ptr)
(set! li (list:range 0 10 1))
(set! li_ptr (ptr li))
(global int i)
(for (set! i 0) (=< i 10) (set! i (+ i 1))
(assert! (= (list:access i li) (var i))
[FAILED] ACCESS assert failed on (var i) for li.
)
(assert! (= (list:access i (at li_ptr)) (var i))
[FAILED] ACCESS assert failed on (var i) with for li_ptr.
)
(assert! (= (list:access i (list:range 0 10 1)) (var i))
[FAILED] ACCESS assert failed on (var i) with for range.
)
)
[COMPLETED] ACCESS
(end!)
|
