mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
23 lines
219 B
ObjectPascal
23 lines
219 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw24283;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
type
|
|
TA<T> = record
|
|
end;
|
|
|
|
TB<T> = class
|
|
end;
|
|
|
|
TC<T> = class(TB<TA<T>>)
|
|
end;
|
|
|
|
{ ensure that specialization works as well }
|
|
var
|
|
t: TC<LongInt>;
|
|
begin
|
|
end.
|
|
|