fpc/tests/webtbs/tw2291.pp
2003-01-01 22:28:17 +00:00

15 lines
187 B
ObjectPascal

{$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.