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