* overloading test for multiple implementations

This commit is contained in:
peter 2003-09-14 12:45:39 +00:00
parent abbc3fa755
commit a283810536

18
tests/tbf/tb0157.pp Normal file
View File

@ -0,0 +1,18 @@
{ %fail }
unit tb0157;
interface
procedure p1(w:word);
implementation
procedure p1(w:word);
begin
end;
procedure p1(w:longint);
begin
end;
end.