* fix test so it works with const. propagation and does throws the range check error at run time

git-svn-id: trunk@25960 -

tests/test/ugeneric7.pp

@@ -6,6 +6,7 @@ unit ugeneric7;
 
     type
       generic tgeneric<t> = class
+        l : longint;
         field : t;
         procedure test;
       end;
@@ -14,8 +15,6 @@ unit ugeneric7;
 
 {$R-}
     procedure tgeneric.test;
-      var
-        l : longint;
       begin
         l:=1234;
 {$R+}