mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
70817baf98
+ added tests * tgeneric87.pp and tgeneric88.pp are no longer considered as tests that should fail git-svn-id: trunk@35078 -
16 lines
182 B
ObjectPascal
16 lines
182 B
ObjectPascal
program tgeneric88;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
generic TTest<T> = record
|
|
|
|
end;
|
|
|
|
PTestLongInt = ^specialize TTest<LongInt>;
|
|
PTestBoolean = ^specialize TTest<Boolean>;
|
|
|
|
begin
|
|
|
|
end.
|