diff options
| author | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 1996-06-28 22:37:08 +0000 |
|---|---|---|
| committer | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 1996-06-28 22:37:08 +0000 |
| commit | 598146c181107cb33665a82db763f1401c4a05bd (patch) | |
| tree | 4481e5271c4b12cc91a59d7e5289677890e05b04 /gcc/real.c | |
| parent | 5b946b05d6ebc793bf2b2c65ae1e73ac15d9bca0 (diff) | |
| download | gcc-598146c181107cb33665a82db763f1401c4a05bd.tar.gz | |
(asctoeg): `0.0eX' is zero, regardless of the exponent X.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@12373 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/real.c')
| -rw-r--r-- | gcc/real.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/real.c b/gcc/real.c index 3ebf8f32e7a..435d0b5d3fa 100644 --- a/gcc/real.c +++ b/gcc/real.c @@ -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; |