pascalabcnet/TestSuite/new1.pas
Бондарев Иван c3bb2ed953 bug fix #524
2017-10-15 15:08:57 +02:00

10 lines
196 B
ObjectPascal

function f(l: sequence of integer): integer;
begin
Result := l.Sum;
end;
begin
var i: integer := f(new integer[](1,2));
assert(i = 3);
var j: integer := f(new List<integer>);
assert(j = 0);
end.