Dead code in fortran/simplify.c

	* simplify.c (degrees_f): Remove unused code.

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index bb27356..d9dd618 100644 (file)
--- 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 86715d5..66ed925 100644 (file)
--- 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);