mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
790f6b0a4b
rtl: fix fgl to use the new syntax tests: fix generics tests to use the new syntax git-svn-id: trunk@15646 -
29 lines
363 B
ObjectPascal
29 lines
363 B
ObjectPascal
{$mode objfpc}
|
|
|
|
type
|
|
generic GList<_T> = class
|
|
private
|
|
var
|
|
i : integer;
|
|
function some_func(): integer;
|
|
end;
|
|
|
|
function GList.some_func(): integer;
|
|
begin
|
|
i := -1;
|
|
Result := -1;
|
|
end { some_func };
|
|
|
|
|
|
type
|
|
TA = specialize GList<integer>;
|
|
var
|
|
A : TA;
|
|
|
|
begin
|
|
A:=TA.Create;
|
|
if A.some_func<>-1 then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|