no message

tests/tbs/tb0488.pp

@@ -0,0 +1,48 @@
+{ Source provided for Free Pascal Bug Report 3478 }
+{ Submitted by "Michalis Kamburelis" on  2004-12-26 }
+{ e-mail: michalis@camelot.homedns.org }
+{ Before fixing bug 3477 this prints
+    FFFFFFF
+    FFFFFFFFFFFFFFFF
+    0000000FFFFFFFFF
+    9999999
+    FFFFFFFF99999999
+    0000000999999999
+
+  After fixing 3477 with my patch this prints
+    FFFFFFF
+    FFFFFFFFFFFFFFFF
+    FFFFFFFFF
+    9999999
+    FFFFFFFF99999999
+    999999999
+  so part of the problems are gone, but not all.
+
+  Then, after fixing this bug with my simple patch it correctly prints
+    FFFFFFF
+    FFFFFFFF
+    FFFFFFFFF
+    9999999
+    99999999
+    999999999
+}
+
+uses SysUtils,erroru;
+
+procedure Check(a,b:ansistring);
+begin
+  writeln(a);
+  if a<>b then
+    error;
+end;
+
+begin
+ check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF');
+ check(WideFormat('%x', [$FFFFFFFF]),'FFFFFFFF');
+ check(WideFormat('%x', [$FFFFFFFFF]),'FFFFFFFFF');
+
+ check(WideFormat('%x', [$9999999]),'9999999');
+ check(WideFormat('%x', [$99999999]),'99999999');
+ check(WideFormat('%x', [$999999999]),'999999999');
+end.
+