testsuite/runnable/for_call.elna


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

program()
var
  actual: [2]Int := [0, 0]

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

begin
  for x of actual do
    set_element(x)
  end;
  assert(actual = [1, 1])
end.