freepascal.compiler/bugs/bug0310.pp

procedure p(s:string);
var
  s : string;
begin
  writeln(s);
end;

begin
  p('test');
end.