freepascal.compiler/tests/test/trstr4.pp

{ %fail }

var
  s: string;
begin
  s:='abc';
  readstr(s);
end.