fpcsrc/tests/webtbs/tw9673.pp


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

unit tw9673;

interface
{$mode objfpc}

type
  generic Testclass<T> = class
  
  type
    TList = array of byte;
	
  end;
	    
var
  b : Testclass.TList;
	      
	    
implementation
begin
end.