blob: cc29a9f2ca43d669a91f80bbe924fe7f8a494bdc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %FAIL }
program tb0250;
{$mode delphi}
type
TTest<T> = class
class var
fTest: TClass;
procedure Test;
end;
procedure TTest<T>.Test;
begin
fTest.ToString;
end;
begin
end.
|