pascalabcnet/TestSuite/generics25.pas
Бондарев Иван 8435858c4a fix #1684
2019-03-31 11:54:53 +02:00

8 lines
142 B
ObjectPascal

function f1 := 1;
function f2(params a: array of integer) := 2;
begin
var a := Arr(f1, f2);
assert(a[0] = 1);
assert(a[1] = 2);
end.