fpc/tests/tbs/tb0419.pp

procedure array_test(b: integer; parr: array of word; c: integer);cdecl;
begin
end;


begin
  array_test(0,[1,2,3,4],0);
end.