mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 16:29:21 +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