mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 11:18:18 +02:00
36 lines
424 B
ObjectPascal
36 lines
424 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tgeneric119;
|
|
|
|
{$mode objfpc}
|
|
{$warn 5024 error}
|
|
{$warn 5036 error}
|
|
|
|
type
|
|
generic TTest<T> = class
|
|
procedure Test(aArg: T);
|
|
end;
|
|
|
|
{$push}
|
|
{$warn 5024 off}
|
|
procedure TTest.Test(aArg: T);
|
|
var
|
|
v: LongInt;
|
|
begin
|
|
{$push}
|
|
{$warn 5036 off}
|
|
Writeln(v);
|
|
{$pop}
|
|
end;
|
|
{$pop}
|
|
|
|
type
|
|
TTestLongInt = specialize TTest<LongInt>;
|
|
|
|
var
|
|
t: TTestLongInt;
|
|
begin
|
|
t := TTestLongInt.Create;
|
|
t.Free;
|
|
end.
|