+ more tests to avoid adding new bugs.

tests/tbs/tb0418.pp

@@ -0,0 +1,9 @@
+
+procedure array_test(b: integer; parr: array of word; c: integer);
+begin
+end;
+
+
+begin
+  array_test(0,[12,33,45],0);
+end.

tests/tbs/tb0419.pp

@@ -0,0 +1,9 @@
+
+procedure array_test(b: integer; parr: array of word; c: integer);cdecl;
+begin
+end;
+
+
+begin
+  array_test(0,[1,2,3,4],0);
+end.

tests/tbs/tb0420.pp

@@ -0,0 +1,11 @@
+
+procedure array_test(b: integer; parr: array of word; c: integer);cdecl;
+begin
+end;
+
+
+var
+ a: array[1..12] of word;
+begin
+  array_test(0,a,0);
+end.