no message

tests/webtbs/tw3494.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 3494 }
+{ Submitted by "Danny Milosavljevic" on  2004-12-31 }
+{ e-mail: [email protected] }
+program ivar;
+uses variants;
+
+type
+  ti = interface(iinterface)
+  end;
+
+var
+  v: Variant;
+  i: ti;
+begin
+  i := nil;
+  v := i;
+  i := v;
+end.