freepascal.compiler/tests/tbs/tb0292.pp

{ Old file: tbs0346b.pp }
{  }

unit tb0292;
interface

{ this uses system.word }
procedure p(w:word);

implementation
uses
  ub0292;

{ this uses tbs0346a.word }
procedure p(w:word);
begin
end;

end.