+ check for internal error 8954 when passing arrays[1..1] as value

    parameter

tests/ts/ts010032.pp

@@ -0,0 +1,12 @@
+type ta = array[1..1,1..100] of integer;
+
+procedure t(a: ta);
+begin
+end;
+
+var a: ta;
+
+begin
+  t(a);
+end.
+