fpcsrc/tests/tbs/tb0170.pp


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

{ %version=1.1 }

{ Old file: tbs0203.pp }
{ problem with changed mangledname of procedures after use }

uses
  ub0170;

begin
   c;
   a;
end.