* initial revision

git-svn-id: trunk@433 -

.gitattributes

@@ -5937,6 +5937,7 @@ tests/webtbs/tw4055.pp svneol=native#text/plain
 tests/webtbs/tw4058.pp svneol=native#text/plain
 tests/webtbs/tw4078.pp svneol=native#text/plain
 tests/webtbs/tw4089.pp svneol=native#text/plain
+tests/webtbs/tw4093.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw4093.pp

@@ -0,0 +1,29 @@
+{ Source provided for Free Pascal Bug Report 4093 }
+{ Submitted by "alphax" on  2005-06-16 }
+{ e-mail: [email protected] }
+program test_var_dt;
+
+{$IFDEF FPC}
+  {$MODE OBJFPC}
+{$ENDIF}
+
+uses
+  SysUtils, Variants;
+
+var
+  DT: TDateTime;
+  S: string;
+   V: Variant;
+   C: Currency;
+begin
+  V := '1.0';
+  C := V;
+  WriteLn(CurrToStr(C));
+
+  S := DateTimeToStr(Now());
+  V := S;
+  writeln(v);
+  DT := V;
+  WriteLn(DateTimeToStr(DT));
+  ReadLn;
+end.