no message

tests/webtbs/tw3470.pp

@@ -1,6 +1,8 @@
 { Source provided for Free Pascal Bug Report 3470 }
 { Submitted by "Danny Milosavljevic" on  2004-12-25 }
 { e-mail: [email protected] }
+
+{$mode objfpc}
 program a;
 uses variants;