pascalabcnet/TestSuite/params8.pas
Бондарев Иван 1f31c20da2 bug fix issues #84, #85, #89
2016-02-21 17:12:52 +01:00

8 lines
122 B
ObjectPascal

function Test<T>(a: T): sequence of T;
begin
Result := Seq(a);
end;
begin
assert(Test(2).ToArray()[0]=2);
end.