mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 21:48:35 +02:00
22 lines
309 B
ObjectPascal
22 lines
309 B
ObjectPascal
{ %FAIL }
|
|
|
|
program timpfuncspez37;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch implicitfunctionspecialization}
|
|
|
|
type
|
|
generic TTestFunc<T> = procedure(aArg1: T);
|
|
|
|
generic procedure DoTest<T>(aArg: specialize TTestFunc<T>);
|
|
begin
|
|
end;
|
|
|
|
function TestFunc(aArg1: LongInt): LongInt;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
DoTest(@TestFunc);
|
|
end.
|