* Compiler now catches the error already at compiler time. Use a variable

    to force checking at runtime.

git-svn-id: trunk@7930 -

tests/tbs/tb0412.pp

@@ -6,6 +6,7 @@ uses
 
 var
    a : array of longint;
+   b : longint;
 
 begin
    try
@@ -19,7 +20,8 @@ begin
        a[3]:=1;
      except
        try
-         a[-1]:=1;
+         b:=-1;
+         a[b]:=1;
        except
          halt(0);
        end;