From b3910a75f25f3acb7102d66d45aad701beafe151 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 26 Feb 2005 09:51:28 +0000
Subject: [PATCH] no message

---
 tests/tbs/tb0488.pp | 48 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 tests/tbs/tb0488.pp

diff --git a/tests/tbs/tb0488.pp b/tests/tbs/tb0488.pp
new file mode 100644
index 0000000000..68d945ccdb
--- /dev/null
+++ b/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.
+