Test suite results for test file tbs/tb0260.pp

Test run data :

Test file "tbs/tb0260.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934980.

Source:

{ Old file: tbs0303.pp }
{ One more InternalError(10) out of register !         OK 0.99.13 (FK) }


  type
    intarray = array[1..1000,0..1] of longint;

  procedure test;
   var
     ar : intarray;
     i : longint;
  procedure local;
   begin
    i:=4;
    ar[i,0]:=56;
    ar[i-1,0]:=pred(ar[i,0]);
   end;
  begin
    local;
  end;

begin
  test;
end.

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