mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-07 18:20:39 +01:00
17 lines
246 B
ObjectPascal
17 lines
246 B
ObjectPascal
{ %RECOMPILE }
|
|
{ %NORUN }
|
|
|
|
{ ensure that nested routines inside generics are handled correctly }
|
|
|
|
program tgeneric104;
|
|
|
|
uses
|
|
ugeneric104;
|
|
|
|
type
|
|
TTest = specialize TGeneric<LongInt>;
|
|
|
|
begin
|
|
specialize TestProc<LongInt>;
|
|
end.
|