* new bug

This commit is contained in:
peter 2005-03-24 23:06:53 +00:00
parent bd34e0dd69
commit fea853245d

12
tests/webtbs/tw3764.pp Normal file
View File

@ -0,0 +1,12 @@
{ Source provided for Free Pascal Bug Report 3764 }
{ Submitted by "carl" on 2005-03-09 }
{ e-mail: cecodere@yahoo.ca }
begin
repeat
break;
until (true);
while false do
continue;
end.