fix bug 1371 : display size of double takes into account the size of power
[scilab.git] / scilab / modules / output_stream / tests / nonreg_tests / bug_1371.tst
index 1d2ceeb..6105a28 100644 (file)
@@ -27,8 +27,8 @@ if string(-1.78945d-88)<>"-1.789D-88"  then pause,end
 if string(-1.2345d-123)<>"-1.23D-123" then pause,end
 
 format(10,"v")
-if string(1.78945d88+%i)<>" 1.789D+88+%i"  then pause,end
-if string(1.2345d123+%i)<>" 1.23D+123+%i" then pause,end
+if string(1.78945d88+%i)<>"1.789D+88+%i"  then pause,end
+if string(1.2345d123+%i)<>"1.23D+123+%i" then pause,end
 if string(-1.78945d88-%i)<>"-1.789D+88-%i"  then pause,end
 if string(-1.2345d123+3.33*%i)<>"-1.23D+123+%i*3.33" then pause,end
 if string(1.2345d-123*%i)<>"%i*1.23D-123" then pause,end
@@ -57,13 +57,13 @@ if string(-1.2345678d-123)<>"-1.2345678D-123" then pause,end
 format(10,"v")
 
 A=[1.7894567d120  1.2345678d123
-   4.2345678d123 -7.7894567d120];
-if or(string(A)<>["1.78D+120","1.23D+123";"4.23D+123","-7.78D+120"]) then pause,end
+4.2345678d123 -7.7894567d120];
+if or(string(A)<>["1.79D+120","1.23D+123";"4.23D+123","-7.79D+120"]) then pause,end
 
 
 A=[1.7894567d120+%i  1.2345678*%i
-   4.2345678d123 -7.7894567d120-2.45*%i];
-if or(string(A)<> [" 1.78D+120+%i","%i*1.2345678";" 4.23D+123","-7.78D+120-%i*2.45"]) then pause,end
+4.2345678d123 -7.7894567d120-2.45*%i];
+if or(string(A)<> ["1.79D+120+%i","%i*1.2345678";"4.23D+123","-7.79D+120-%i*2.45"]) then pause,end
 
 
 P=1.2345678d-123-1.7894567d88*%s;