mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 22:08:11 +02:00
19 lines
252 B
ObjectPascal
19 lines
252 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw40712a;
|
|
{$mode objfpc}
|
|
type
|
|
generic TSomeGeneric<T> = object
|
|
type
|
|
TMine = T;
|
|
var
|
|
data: record
|
|
value: TMine;
|
|
end;
|
|
end;
|
|
TSomeGeneric2 = object(specialize TSomeGeneric<Integer>)
|
|
end;
|
|
begin
|
|
end.
|
|
|