freepascal.compiler/tests/test/twrstr4.pp

{ %fail }

var
  t: text;
begin
  writestr(t,'abc');
end.