no message

tests/webtbs/tw3765.pp

@@ -0,0 +1,17 @@
+{ Source provided for Free Pascal Bug Report 3765 }
+{ Submitted by "Andrew Haines" on  2005-03-09 }
+{ e-mail: [email protected] }
+program Project1;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes, SysUtils;
+var
+  AName, ANumber, ABoolean: Variant;
+begin
+  AName := 'John Smith';
+  ANumber := 12345;
+  ABoolean := True;
+  WriteLn('Name=',AName, ' Number=', ANumber, ' Boolean=',ABoolean);
+end.