tests/test/tgenconst2.pp


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

{ %NORUN }
{$mode objfpc}
{
  test lists of types/contants
}
program tgenconst2;

type
	generic TMoreThanOne<T1,T2;const U1,U2:integer> = record end;
	
var
	a: specialize TMoreThanOne<integer,string,10,10>;
begin
end.