fpcsrc/tests/webtbs/tw17184.pp


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

{$MODE OBJFPC} { -*- text -*- }
program Test;

type
   generic Test1<T> = class end;
   generic Test2<T> = class
    type
      Test3 = specialize Test1<T>;
   end;
   Test4 = specialize Test2<Integer>;

begin
end.