blob: cfb1434d5375400c8859fa683387c6e77160a9cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
program tgeneric97;
{$mode objfpc}
type
generic TTest<T> = class
end;
TTestLongInt = specialize TTest<LongInt>;
TTestString = specialize TTest<AnsiString>;
begin
if LowerCase(TTestLongInt.ClassName) <> 'ttest<system.longint>' then
halt(1);
if LowerCase(TTestString.ClassName) <> 'ttest<system.ansistring>' then
halt(2);
end.
|
