tests/tbs/ub0437c.pp


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

{ %version=1.1}
unit ub0437c;

  interface

    uses
       ub0437b;

    type
      prec = ub0437b.prec;

    function f : prec;

  implementation

    function f : prec;
      begin
      end;

end.