testsuite/runnable/repeat_loop.elna


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

program()
var
  actual: [4]Word := [0u, 0u, 0u, 0u]
  i: Word := 0u

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