(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! (= (access i li) (var i))
      [FAILED] ACCESS assert failed on (var i) for li.
   )
   (assert! (= (access i li_ptr) (var i))
      [FAILED] ACCESS assert failed on (var i) with for li_ptr.
   )
   (assert! (= (access i (range 0 10 1)) (var i))
      [FAILED] ACCESS assert failed on (var i) with for range.
   )
)

[COMPLETED] ACCESS

(end!)