fpc/tests/webtbs/tw1046.pp
2000-11-30 22:38:14 +00:00

9 lines
84 B
ObjectPascal

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