no message

tests/webtbs/tw3470.pp

@@ -1,7 +1,10 @@
-{$ifdef fpc}{$mode delphi}{$endif}
-uses Variants;
+{ Source provided for Free Pascal Bug Report 3470 }
+{ Submitted by "Danny Milosavljevic" on  2004-12-25 }
+{ e-mail: [email protected] }
+program a;
+uses variants;
 
-type
+type 
   IBla = interface
   end;
 
@@ -13,12 +16,11 @@ type
 constructor TBla.Create;
 begin
 end;
-
+   
 var
   v: Variant;
   bla: IBla;
 begin
   bla := TBla.Create;
   v := bla;
-end.
-
+end.