fpcsrc/tests/tbs/tb0292.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ 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.