* simplify.c (gfc_simplify_log): Remove useless line of code.
From-SVN: r82418
This commit is contained in:
parent
5ba9535490
commit
e73c80ae86
2 changed files with 4 additions and 1 deletions
|
@ -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.
|
||||
|
|
|
@ -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);
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue