re PR fortran/57071 (Optimize (-1)**k to 1 - 2 * mod(K, 2))
authorThomas Koenig <tkoenig@gcc.gnu.org>
Sun, 28 Apr 2013 13:32:59 +0000 (13:32 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Sun, 28 Apr 2013 13:32:59 +0000 (13:32 +0000)
commit0de1e4a6aac5ec9ed06c2c99b9a5fd8344e6870c
tree9dcedc944d204b5d8180eb0caf4e8ac6ac8898cc
parentd872e4aa7018fe79f1199e52bbcae0070128a561
re PR fortran/57071 (Optimize  (-1)**k  to 1 - 2 * mod(K, 2))

2013-04-28  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/57071
* frontend-passes (optimize_power):  New function.
(optimize_op):  Use it.

2013-04-28  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/57071
* gfortran.dg/power_3.f90:  New test.
* gfortran.dg/power_4.f90:  New test.

From-SVN: r198369
gcc/fortran/ChangeLog
gcc/fortran/frontend-passes.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/power_3.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/power_4.f90 [new file with mode: 0644]