From: Richard Kenner <kenner@gcc.gnu.org>
Date: Fri, 28 Jun 1996 22:37:08 +0000 (-0400)
Subject: (asctoeg): `0.0eX' is zero, regardless of the exponent X.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=25a00742331933fa37711c1e802509f380fbaa59;p=gcc.git

(asctoeg): `0.0eX' is zero, regardless of the exponent X.

From-SVN: r12373
---

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;