fpc/tests/tbs/tb0137.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

13 lines
181 B
ObjectPascal

{ 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.