* fix test; it of course still fails, but now it fails with the expected warning instead of an error

git-svn-id: trunk@39351 -

tests/tbf/tb0258.pp

@@ -5,7 +5,7 @@ procedure p;
 var
   a : array of longint;
 begin
-  setlength(p,100);
+  setlength(a,100);
 end;
 
 begin