b3bfce66736c2db13691393b272535407ef49e19
[scilab.git] / scilab / modules / output_stream / tests / nonreg_tests / bug_1371.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2010 - INRIA - Serge Steer
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 1371 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=1371
12 //
13 // <-- Short Description -->
14 // Incorrect output representation of floating numbers with exponent larger than 100 or smaller than -100.
15 format(10,"e")
16 if string(1.78945d88)<>"1.789D+88"  then bugmes();quit;end
17 if string(1.2345d123)<>"1.23D+123" then bugmes();quit;end
18 if string(-1.78945d88)<>"-1.789D+88"  then bugmes();quit;end
19 if string(-1.2345d123)<>"-1.23D+123" then bugmes();quit;end
20 if string(1.78945d-88)<>"1.789D-88"  then bugmes();quit;end
21 if string(1.2345d-123)<>"1.23D-123" then bugmes();quit;end
22 if string(-1.78945d-88)<>"-1.789D-88"  then bugmes();quit;end
23 if string(-1.2345d-123)<>"-1.23D-123" then bugmes();quit;end
24 format(10,"v")
25 if string(1.78945d88+%i)<>"1.789D+88+%i"  then bugmes();quit;end
26 if string(1.2345d123+%i)<>"1.23D+123+%i" then bugmes();quit;end
27 if string(-1.78945d88-%i)<>"-1.789D+88-%i"  then bugmes();quit;end
28 if string(-1.2345d123+3.33*%i)<>"-1.23D+123+%i*3.33" then bugmes();quit;end
29 if string(1.2345d-123*%i)<>"%i*1.23D-123" then bugmes();quit;end
30 format(15,"e")
31 if string(1.7894567d88)<>"1.78945670D+88"  then bugmes();quit;end
32 if string(1.2345678d123)<>"1.2345678D+123" then bugmes();quit;end
33 if string(-1.7894567d88)<>"-1.78945670D+88"  then bugmes();quit;end
34 if string(-1.2345678d123)<>"-1.2345678D+123" then bugmes();quit;end
35 if string(1.7894567d-88)<>"1.78945670D-88"  then bugmes();quit;end
36 if string(1.2345678d-123)<>"1.2345678D-123" then bugmes();quit;end
37 if string(-1.7894567d-88)<>"-1.78945670D-88"  then bugmes();quit;end
38 if string(-1.2345678d-123)<>"-1.2345678D-123" then bugmes();quit;end
39 format(10,"v")
40 A=[1.7894567d120  1.2345678d123
41 4.2345678d123 -7.7894567d120];
42 if or(string(A)<>["1.79D+120","1.23D+123";"4.23D+123","-7.79D+120"]) then bugmes();quit;end
43 A=[1.7894567d120+%i  1.2345678*%i
44 4.2345678d123 -7.7894567d120-2.45*%i];
45 if or(string(A)<> ["1.79D+120+%i","%i*1.2345678";"4.23D+123","-7.79D+120-%i*2.45"]) then bugmes();quit;end
46 P=1.2345678d-123-1.7894567d88*%s;
47 if or(string(P)<>["                      ";"1.23D-123 - 1.789D+88s"] ) then bugmes();quit;end