freepascal.compiler/tests/tbs/tb0412.pp

{ %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.