mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:48:02 +02:00
70817baf98
+ added tests * tgeneric87.pp and tgeneric88.pp are no longer considered as tests that should fail git-svn-id: trunk@35078 -
29 lines
450 B
ObjectPascal
29 lines
450 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0623;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch advancedrecords}
|
|
|
|
type
|
|
generic TTest<T> = record
|
|
public type
|
|
PSelf = ^specialize TTest<T>;
|
|
public
|
|
Next: PSelf;
|
|
end;
|
|
|
|
generic TTest2<T> = record
|
|
Next: ^specialize TTest2<T>;
|
|
end;
|
|
|
|
TTestLongInt = specialize TTest<LongInt>;
|
|
TTestString = specialize TTest<String>;
|
|
|
|
TTest2LongInt = specialize TTest2<LongInt>;
|
|
TTest2String = specialize TTest2<String>;
|
|
|
|
begin
|
|
|
|
end.
|