fpc/tests/tbs/tbs0327.pp

{$ifdef fpc}{$mode delphi}{$endif}

procedure k(l:longint);overload;
begin
end;

procedure k(l:string);overload;
begin
end;

begin
end.