blob: c2dbd20252ae3feb2a40e8b076446dc2b6d96d37 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %NORUN }
{ This tests that one can use a specialization of another generic which was
introduced in the currently parsed generic can be used as a parameter type
in a procedure variable introduced in the current generic as well }
program tgeneric69;
{$mode delphi}
type
TSomeGeneric<T> = class
end;
TSomeOtherGeneric<T> = class
type
TSomeGenericT = TSomeGeneric<T>;
TSomeProc = procedure(aParam: TSomeGenericT);
end;
begin
end.
|
