fpcsrc/tests/tbs/ub0380.pp


1
2
3
4
5
6
7
8

unit ub0380;
interface
procedure p1(i:integer);overload;
implementation
procedure p1(i:integer);overload;
begin
end;
end.