mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 22:47:59 +02:00
790f6b0a4b
rtl: fix fgl to use the new syntax tests: fix generics tests to use the new syntax git-svn-id: trunk@15646 -
25 lines
330 B
ObjectPascal
25 lines
330 B
ObjectPascal
program tgeneric18;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
|
|
{ TFirstGeneric }
|
|
|
|
generic TFirstGeneric<T> = class(TObject)
|
|
end;
|
|
|
|
{ TSecondGeneric }
|
|
|
|
generic TSecondGeneric<T> = class(TObject)
|
|
public
|
|
type
|
|
TFirstGenericType = specialize TFirstGeneric<T>;
|
|
end;
|
|
|
|
var
|
|
Second: specialize TSecondGeneric<string>;
|
|
begin
|
|
end.
|
|
|