* added example so it won't be forgotten

tests/webtbs/tw3227a.pp

@@ -0,0 +1,13 @@
+{$mode objfpc}
+uses 
+  Variants;
+
+var
+  a : array of longint;
+  v : variant;
+begin
+  setlength(a,1000);
+  v:=a;
+end.
+
+