mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
36 lines
612 B
ObjectPascal
36 lines
612 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw39581;
|
|
|
|
{$Mode Delphi} {$H+}
|
|
|
|
Type
|
|
TImplClass<P> = class;
|
|
|
|
iLinkingIntf<P> = interface
|
|
procedure NestedCall(const DataFrom: TImplClass<P>);
|
|
end;
|
|
|
|
(* Компиляция проекта, цель: Project1.exe: Код завершения 1, ошибок: 1
|
|
Project1.pas(9,55) Error: Internal error 2012101001
|
|
*)
|
|
|
|
{ TImplClass }
|
|
|
|
TImplClass<P> = class( TInterfacedObject, iLinkingIntf<P> )
|
|
protected
|
|
procedure NestedCall(const DataFrom: TImplClass<P> );
|
|
end;
|
|
|
|
{ TImplClass }
|
|
|
|
procedure TImplClass<P>.NestedCall(const DataFrom: TImplClass<P>);
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|
|
|