no message

tests/webtbs/tw3898.pp

@@ -0,0 +1,24 @@
+{ Source provided for Free Pascal Bug Report 3898 }
+{ Submitted by "alphax" on  2005-04-19 }
+{ e-mail: [email protected] }
+program Project1;
+
+{$APPTYPE CONSOLE}
+{$IFDEF FPC}
+  {$MODE ObjFpc}
+{$ENDIF}
+
+uses
+  SysUtils,
+  Variants;
+
+var
+  DT: TDateTime;
+  V: Variant;
+begin
+  DT := Now();
+  V := DT;
+  if VarType(V)<>varDate then
+    halt(1);
+  writeln('ok');
+end.