mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 01:09:35 +02:00
b7afb2431c
* better error message if a constraint is found at a wrong location git-svn-id: trunk@44174 -
24 lines
203 B
ObjectPascal
24 lines
203 B
ObjectPascal
{ %fail }
|
|
{$mode delphi}
|
|
program test;
|
|
|
|
type
|
|
TFooA = class
|
|
end;
|
|
|
|
type
|
|
TFooB = class
|
|
end;
|
|
|
|
type
|
|
TList<T: TFooA> = class
|
|
procedure Foo;
|
|
end;
|
|
|
|
procedure TList<T: TFooB>.Foo;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|