fpc/tests/test/twrstr6.pp

{ %fail }

var
  s: string;
begin
  writestr(s);
end.