path: root/testsuite/runnable/for_with.elna

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])
end.