TP3/shell/tests/fixtures/t71_repeat_seq.pas

program t71_repeat_seq;

{ t71 -- a REPEAT body with more than one statement.  This was a parser bug:
  the body called Statmnt once and then demanded UNTIL, so

      repeat a; b until c

  was ENoSemi at the first ';'.  t12_repeat's two bodies are single
  statements, so nothing saw it; CALC.INC's Flash does (GotoXY; Blink := not
  Blink; if ...; Write; Delay).  Red before the fix (ERR 1), green after. }

var
   i : integer;
begin
   i := 0;
   repeat
      i := i + 1;
      i := i + 1
   until i >= 6;
   writeln (i)
end.