fpcsrc/tests/test/thlp30.pp


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

{ %FAIL }

{ helpers can not extend type parameters even if they can only be classes }
program thlp30;

{$ifdef fpc}
  {$mode delphi}
{$endif}

type
  TFoo<T: class> = class
  type
    THelper = class helper for T
    end;
  end;

begin

end.