fpcsrc/tests/test/tgeneric21.pp


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

{ %fail }
{$mode objfpc}{$H+}

type
  generic TOuter<T> = class(TObject)
  public type
    generic TInner<U> = class(TObject)
    end;
  end;

begin
end.