path: root/testsuite/runnable/repeat_loop.elna

var
  actual: [4]Word := [4]Word{}
  i: Word := 0u

begin
  repeat
    i := i + 1u;
    actual[i] := i
  until i = 4u;
  assert(actual = [4]Word{ 1u, 2u, 3u, 4u })
end.