freepascal.compiler/bugs/bug0242.pp

procedure p;
begin
end;

procedure p1(var x);
begin
end;

begin
  p1(p);
end.