tests/test/tarray1.pp


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

{$mode objfpc}
type
   tc1 = class
   end;

   tc2 = class(tc1)
   end;

   tcoc1 = class of tc1;
   tcoc2 = class of tc2;

procedure p(const a : array of tcoc1);

  begin
  end;

begin
   p([tc2]);
end.