mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 00:28:05 +02:00
04534d5dcf
pgenutil.pas: * parse_generic_parameters: a ';' terminates a parameter group, so correctly adjust firstidx in that case + added test git-svn-id: trunk@29685 -
23 lines
237 B
ObjectPascal
23 lines
237 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw27424;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TType = class(TObject)
|
|
end;
|
|
|
|
generic TTest<T1; T2: TType> = class(TObject)
|
|
end;
|
|
|
|
TFoo = class(TType)
|
|
end;
|
|
|
|
TBar = class(specialize TTest<string, TFoo>)
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|