freepascal.compiler/bugs/bug0269.pp

{ Wrong line number for error message }
begin
  repeat
   writeln('test');
  until sptr;
end.