fpcsrc/tests/tbs/tb0155.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ Old file: tbs0181.pp }
{ shows a problem with name mangling                    OK 0.99.9 (PM) }

{ shows a problem of name mangling  }
Program tb0155;

  Uses ub0155;

  var l : mylongint;
begin
  dummy(l);
end.