testsuite/runnable/for_call.elna


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

var
  actual: [2]Int := [0, 0]

proc set_element(element: ^Int)
begin
  element^ := 1
return

program()
begin
  for x of actual do
    set_element(x)
  end;
  assert(actual = [1, 1])
return 0u8

end.