fpc/tests/tbs/tb0418.pp

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


begin
  array_test(0,[12,33,45],0);
end.