One less significant digit: 20 was too much

diff --git a/modules/src/flt_arith/flt_str2fl.c b/modules/src/flt_arith/flt_str2fl.c
index 11551ff..5ef8422 100644 (file)
--- a/modules/src/flt_arith/flt_str2fl.c
+++ b/modules/src/flt_arith/flt_str2fl.c
@@ -425,7 +425,7 @@ flt_flt2str(e, buf, bufsize)
        char *buf;
 {
 
-#define NDIG   20
+#define NDIG   19
        int sign, dp;
        register int i;
        register char *s1;

diff --git a/modules/src/flt_arith/test.c b/modules/src/flt_arith/test.c
index cc50c94..35904ed 100644 (file)
--- a/modules/src/flt_arith/test.c
+++ b/modules/src/flt_arith/test.c
@@ -5,17 +5,17 @@ struct tests {
        int     oper;
        char    *result;
 } tests[] = {
-       { "1.0", 0, 0, "1.0000000000000000000" },
-       { "-1.0", 0, 0, "-1.0000000000000000000" },
-       { "0.0", 0, 0, "0.0000000000000000000" },
-       { "1.234567", 0, 0, "1.2345670000000000000" },
-       { "1.234567", 0, 'D', "1.0000000000000000000" },
-       { "1.234567", 0, 'R', "2.3456700000000000000e-1" },
-       { "32768", "32768", '+', "6.5536000000000000000e+4" },
-       { "32768", "32767", '-', "1.0000000000000000000" },
-       { "32768", "32768", '*', "1.0737418240000000000e+9" },
-       { "32768", "32768", '/', "1.0000000000000000000" },
-       { "1.234567e20", "-1.234567e20", '+', "0.0000000000000000000" },
+       { "1.0", 0, 0, "1.000000000000000000" },
+       { "-1.0", 0, 0, "-1.000000000000000000" },
+       { "0.0", 0, 0, "0.000000000000000000" },
+       { "1.234567", 0, 0, "1.234567000000000000" },
+       { "1.234567", 0, 'D', "1.000000000000000000" },
+       { "1.234567", 0, 'R', "2.345670000000000000e-1" },
+       { "32768", "32768", '+', "6.553600000000000000e+4" },
+       { "32768", "32767", '-', "1.000000000000000000" },
+       { "32768", "32768", '*', "1.073741824000000000e+9" },
+       { "32768", "32768", '/', "1.000000000000000000" },
+       { "1.234567e20", "-1.234567e20", '+', "0.000000000000000000" },
        { 0, 0, 0, 0}
 };