diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2020-02-25 09:25:33 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-02-25 09:25:33 +0100 |
| commit | fe86f537f010828b7f77ff459cef138e84071660 (patch) | |
| tree | 89e26d3251f14f327fd942a67dbb5fcef22d5f24 /gcc/fortran/simplify.c | |
| parent | 103bc4db7665a03bf2390ccc8ceca0dc5a7a81b7 (diff) | |
| download | gcc-fe86f537f010828b7f77ff459cef138e84071660.zip gcc-fe86f537f010828b7f77ff459cef138e84071660.tar.gz gcc-fe86f537f010828b7f77ff459cef138e84071660.tar.bz2 | |
Dead code in fortran/simplify.c
* simplify.c (degrees_f): Remove unused code.
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 86715d5..66ed925 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); |