mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
684c8842e7
pgenutils.pas, check_generic_constraints: * correctly handle forward defs if the constraint is either a single IInterface/IUnknown or a TObject/class + added tests git-svn-id: trunk@28601 -
20 lines
247 B
ObjectPascal
20 lines
247 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw26599;
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
TSomeList<T : TObject> = Class
|
|
End; { Class }
|
|
|
|
TSomeClass = Class;
|
|
TSomeClassList = TSomeList<TSomeClass>;
|
|
|
|
TSomeClass = Class(TObject)
|
|
SomeList : TSomeClassList;
|
|
End;
|
|
|
|
begin
|
|
end.
|