Test suite results for test file webtbs/tw3227a.pp

Test run data :

t_id 1432
t_adddate 2005/01/04
t_result 0
t_knownrunerror 0

tr_id	run	tr_ok	tr_skip	tr_result
-811201942	729242	True	False	Successfully run

Record count: 1

{$mode objfpc}
uses 
  Variants;

var
  a : array of longint;
  v : variant;
begin
  setlength(a,1000);
  v:=a;
end.