testsuite/runnable/for_with.elna


1
2
3
4
5
6
7
8
9
10
11

program()
var
  actual: [3]Word := [0u, 0u, 0u]
begin
  for element of [1u, 2u, 3u] with i do
    actual[i] := i * element^
  end;
  assert(actual = [1u, 4u, 9u])
return 0u8

end.