Test suite results for test file tbs/tb0112.pp

Test run data :

View Test suite results

Test file "tbs/tb0112.pp" information:

t_id 360
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ Old file: tbs0131.pp }
{ 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]);
  if w[e,e,e,e,e,e,e,e,e,e]<>1 then
   begin
     writeln('Error!');
     halt(1);
   end;
end.

Link to SVN view of tbs/tb0112.pp source.