From de424adb0db4cf21440ab5acf72ec687eb6479b5 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 1 Mar 2005 21:35:47 +0000
Subject: [PATCH]   * fixed test

---
 tests/webtbs/tw3533.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/webtbs/tw3533.pp b/tests/webtbs/tw3533.pp
index 35b64f522b..a960689338 100644
--- a/tests/webtbs/tw3533.pp
+++ b/tests/webtbs/tw3533.pp
@@ -22,7 +22,7 @@ begin
   writeln(s1,' ',s2,' ',s3);
   if (s1<>' 1.000000000000000E+000') or
      (s2<>' 1.000000000000000E-001') or
-     (s3<>'-9.000000000000000E-001') then
+     (s3<>' 9.000000000000000E-001') then
     halt(1);
 end;
 begin