diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index a5d97bf47024..fccd3e3b7803 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-07  Richard Henderson  <rth@redhat.com>
+
+	* real.c (ereal_inf): Clear E before use.
+
 2002-09-07  Kazu Hirata  <kazu@cs.umass.edu>
 
 	* config/h8300/h8300.md (udivmodqi4): Split the pattern into
diff --git a/gcc/real.c b/gcc/real.c
index 0a94c0599e52..bc30a93795f9 100644
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -1898,6 +1898,7 @@ ereal_inf (mode)
 
   rndsav = rndprc;
   rndprc = prec;
+  eclear (e);
   einfin (e);
   rndprc = rndsav;