fpcsrc/tests/tbs/tb0137.pp


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

{ Old file: tbs0162.pp }
{ continue in repeat ... until loop doesn't work correct OK 0.99.8 (PFV) }

var
   i : longint;

begin
   i:=1;
   repeat
     continue;
   until i=1;
end.