fpc/tests/tbs0269.pp

{ No idea how I could test this !! PM }
{ we should parse the compiler output !! }
{ Wrong line number for error message }
begin
  repeat
   writeln('test');
  until sptr;
end.