mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 14:09:59 +02:00
* new bug
This commit is contained in:
parent
bd34e0dd69
commit
fea853245d
12
tests/webtbs/tw3764.pp
Normal file
12
tests/webtbs/tw3764.pp
Normal 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.
|
||||
|
Loading…
Reference in New Issue
Block a user