freepascal.compiler/tests/test/twrstr1.pp

{ %fail }

{ from GPC testsuite }

program fjf569i;

procedure foo (const a: String);
begin
  WriteStr (a, '')  { WRONG }
end;

begin
  WriteLn ('')
end.