mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 11:18:18 +02:00
22 lines
332 B
ObjectPascal
22 lines
332 B
ObjectPascal
{ %NORUN }
|
|
|
|
program timpfuncspez36;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch implicitfunctionspecialization}
|
|
|
|
type
|
|
generic TTestFunc<T> = procedure(aArg1: String; aArg2: T);
|
|
|
|
generic procedure DoTest<T>(aArg: specialize TTestFunc<T>);
|
|
begin
|
|
end;
|
|
|
|
procedure TestFunc(aArg1: String; aArg2: LongInt);
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
DoTest(@TestFunc);
|
|
end.
|