mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-28 22:48:21 +02:00
20 lines
218 B
ObjectPascal
20 lines
218 B
ObjectPascal
{ %RECOMPILE }
|
|
{ %NORUN }
|
|
|
|
program tanonfunc68;
|
|
|
|
{$mode delphi}{$H+}
|
|
{$modeswitch advancedrecords}
|
|
|
|
{same as tanonfunc55 but mode delphi}
|
|
|
|
uses
|
|
uanonfunc55;
|
|
|
|
var
|
|
f: TFunc<LongInt>;
|
|
begin
|
|
f := Foo<LongInt>;
|
|
end.
|
|
|