* fixed test

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