From: Steven G. Kargl <kargls@comcast.net>
Date: Sat, 29 May 2004 11:33:30 +0000 (+0000)
Subject: * simplify.c (gfc_simplify_log): Remove useless line of code.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e73c80ae862805f76cb4c45de0b1109f5d3e14d5;p=gcc.git

* simplify.c (gfc_simplify_log): Remove useless line of code.

From-SVN: r82418
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 786cc39077e..ac795569089 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-29  Steven G. Kargl  <kargls@comcast.net>
+
+	* simplify.c (gfc_simplify_log): Remove useless line of code.
+
 2004-05-29  Paul Brook  <paul@codesourcery.com>
 
 	* trans-common.c (find_equivalence): Find multiple rules.
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 2ce86a38e7e..a90d05d0460 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -2035,7 +2035,6 @@ gfc_simplify_log (gfc_expr * x)
       mpf_init (xr);
       mpf_init (xi);
 
-      mpf_div (xr, x->value.complex.i, x->value.complex.r);
       arctangent2 (&x->value.complex.i, &x->value.complex.r,
 	&result->value.complex.i);