* add check

tests/tbs/tb0112.pp

@@ -2,13 +2,21 @@
 { internal error 10 with highdimension arrays           OK 0.99.6 (MVC) }
 
 type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..3,1..3,1..3,1..3] of Byte;
+ TA2 = Array[1..2,1..2,1..2] of Byte;
 
 var v,w: ta;
+  x: ta2;
     e: longint;
 
 Begin
   e :=1;
+  x[e,e,e]:=1;
   v[e,e,e,e,e,e,e,e,e,e] :=1;
   w[e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,v[e,e,e,e,e,e,v[e,v[e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,e,e],e,e,e,e,e,e,e,e],e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
-  writeln(w[e,e,e,e,e,e,e,e,e,e])
+  writeln(w[e,e,e,e,e,e,e,e,e,e]);
+  if w[e,e,e,e,e,e,e,e,e,e]<>1 then
+   begin
+     writeln('Error!');
+     halt(1);
+   end;
 end.