freepascal.compiler/tests/webtbs/tw1046.pp

procedure test2(self : longint);
begin
 writeln(self);
end;

begin
  test2(1);
end.