tests/tbs/ub0155.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

{ Old file: tbs0181a.pp }
{  }

{ shows a problem of name mangling  }
Unit ub0155;

Interface

  type mylongint = longint;
       mylongint2 = mylongint;

  procedure dummy(var l : mylongint);

Implementation

  var l : longint;

  procedure use_before_implemented;
    begin
       dummy(l);
    end;

  procedure dummy(var l : mylongint2);
    begin
       l:=78;
    end;

begin
   use_before_implemented;
end.