mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-06 08:50:46 +01:00
2fb2b18abc
U compiler/symdef.pas A tests/webtbs/tw27320.pp A tests/webtbs/uw27320.defaults.pp --- Recording mergeinfo for merge of r29537 into '.': U . --- Merging r29579 into '.': A tests/webtbs/tw27348.pp G compiler/symdef.pas --- Recording mergeinfo for merge of r29579 into '.': G . --- Merging r29743 into '.': U compiler/rautils.pas G compiler/symdef.pas --- Recording mergeinfo for merge of r29743 into '.': G . --- Merging r29685 into '.': A tests/webtbs/tw27424.pp U compiler/pgenutil.pas --- Recording mergeinfo for merge of r29685 into '.': G . --- Merging r30160 into '.': U rtl/inc/cgeneric.inc --- Recording mergeinfo for merge of r30160 into '.': G . --- Merging r31028 into '.': U rtl/objpas/classes/classes.inc A tests/webtbs/tw28271.pp --- Recording mergeinfo for merge of r31028 into '.': G . # revisions: 29537,29579,29743,29685,30160,31028 git-svn-id: branches/fixes_3_0@31065 -
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.
|