[gcc(refs/users/guojiufu/heads/guojiufu-branch)] Dead code in fortran/simplify.c

[Jiu Fu Guo]

https://gcc.gnu.org/g:fe86f537f010828b7f77ff459cef138e84071660

commit fe86f537f010828b7f77ff459cef138e84071660
Author: Steven G. Kargl <kargl@gcc.gnu.org>
Date:   Tue Feb 25 09:25:33 2020 +0100

    Dead code in fortran/simplify.c
    
            * simplify.c (degrees_f): Remove unused code.

Diff:
---
 gcc/fortran/ChangeLog  | 4 ++++
 gcc/fortran/simplify.c | 5 -----
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index bb273563cc0..d9dd618cc87 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2020-02-25  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	* simplify.c (degrees_f): Remove unused code.
+
 2020-02-25  Jakub Jelinek  <jakub@redhat.com>
 
 	PR translation/93864
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 86715d52d90..66ed925c10d 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -1775,11 +1775,6 @@ degrees_f (mpfr_t x, mpfr_rnd_t rnd_mode)
   mpfr_t tmp;
   mpfr_init (tmp);
 
-  /* Set x = x % 2pi to avoid offsets with large angles.  */
-  mpfr_const_pi (tmp, rnd_mode);
-  mpfr_mul_ui (tmp, tmp, 2, rnd_mode);
-  mpfr_fmod (tmp, x, tmp, rnd_mode);
-
   /* Set x = x * 180.  */
   mpfr_mul_ui (x, x, 180, rnd_mode);