freepascal.compiler/tests/tbs/tb0380.pp

{ %version=1.1 }

uses ub0380;
procedure p1(s:string);overload;
begin
end;

begin
  p1(1);
end.