fpc/bugs/bug0310.pp
2000-02-06 13:00:44 +00:00

11 lines
91 B
ObjectPascal

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