From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Tue, 25 Feb 2020 08:25:33 +0000 (+0100)
Subject: Dead code in fortran/simplify.c
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fe86f537f010828b7f77ff459cef138e84071660;p=gcc.git

Dead code in fortran/simplify.c

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

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);