From e73c80ae862805f76cb4c45de0b1109f5d3e14d5 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Sat, 29 May 2004 11:33:30 +0000 Subject: [PATCH] * simplify.c (gfc_simplify_log): Remove useless line of code. From-SVN: r82418 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/simplify.c | 1 - 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 786cc39077e4..ac7955690892 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-05-29 Steven G. Kargl + + * simplify.c (gfc_simplify_log): Remove useless line of code. + 2004-05-29 Paul Brook * trans-common.c (find_equivalence): Find multiple rules. diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 2ce86a38e7ef..a90d05d04608 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); -- 2.43.5