diff options
author | Richard Kenner <kenner@gcc.gnu.org> | 1996-06-28 18:37:08 -0400 |
---|---|---|
committer | Richard Kenner <kenner@gcc.gnu.org> | 1996-06-28 18:37:08 -0400 |
commit | 25a00742331933fa37711c1e802509f380fbaa59 (patch) | |
tree | 4481e5271c4b12cc91a59d7e5289677890e05b04 /gcc | |
parent | 241cea859c70e32d3de9ee887b29be2d5c675956 (diff) | |
download | gcc-25a00742331933fa37711c1e802509f380fbaa59.zip gcc-25a00742331933fa37711c1e802509f380fbaa59.tar.gz gcc-25a00742331933fa37711c1e802509f380fbaa59.tar.bz2 |
(asctoeg): `0.0eX' is zero, regardless of the exponent X.
From-SVN: r12373
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/real.c | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -4988,7 +4988,15 @@ asctoeg (ss, y, oprec) /* Exponent interpretation */ expnt: + /* 0.0eXXX is zero, regardless of XXX. Check for the 0.0. */ + for (k = 0; k < NI; k++) + { + if (yy[k] != 0) + goto read_expnt; + } + goto aexit; +read_expnt: esign = 1; exp = 0; ++s; |