fpcsrc/tests/webtbs/tw3764.pp


1
2
3
4
5
6
7
8
9
10
11

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