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