fpc/tests/webtbs/tw2291.pp

{$mode delphi}

procedure error1(a, b: array of string);
begin
end;

procedure error2(a, b: array of byte);
begin
end;

begin
 error1(['abc'], ['xyz']);
 error2([1,2,3,4], [2,1,0]);
end.