Test suite results for test file tbs/tb0412.pp

Test run data :

Test file "tbs/tb0412.pp" information:

t_id 628
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 750246.

Source:

{ %version=1.1 }
{$mode objfpc}
{$r+}
uses
   sysutils;

var
   a : array of longint;

begin
   try
     a[10]:=1;
   except
     setlength(a,3);
     a[0]:=1;
     a[1]:=1;
     a[2]:=1;
     try
       a[3]:=1;
     except
       try
         a[-1]:=1;
       except
         halt(0);
       end;
     end;
   end;
   writeln('Problem with dyn. array range checking');
   halt(1);
end.

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