freepascal.compiler/tests/tbs/ub0342a.pp

unit ub0342a;
interface
procedure p(d:longword);
implementation
uses
  ub0342b;
procedure p(d:longword);
begin
end;
end.