mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:38:14 +02: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.
|