fix scanning of "-0x" pseudo-hex float (must give negative zero)

diff --git a/src/internal/floatscan.c b/src/internal/floatscan.c
index 4b335f5cf4a45b5254f4d471bb34c67501a3ca9c..68f576c9eca34403e78dfbdd42da7a143537599d 100644 (file)
--- a/src/internal/floatscan.c
+++ b/src/internal/floatscan.c
@@ -352,7 +352,7 @@ static long double hexfloat(FILE *f, int bits, int emin, int sign, int pok)
                } else {
                        shlim(f, 0);
                }
-               return 0;
+               return sign * 0.0;
        }
        if (!gotrad) rp = dc;
        while (dc<8) x *= 16, dc++;