freepascal.compiler/tests/test/trstr5.pp

{ %fail }

var
  t: text;
  i: integer;
begin
  readstr(t,i);
end.