Dead code in fortran/simplify.c

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index bb273563cc00a41a478f6e2bdb0860ca86ac4597..d9dd618cc87d90158a7d1e72654c093253e1c972 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 86715d52d9067097a0850a12bee0d5246d2fab8d..66ed925c10d603a2eef8cb67dd4b519f7fc4947d 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);