[Bug fortran/57071] Optimize (-1)**k to 1 - 2 * mod(K, 2)

[tkoenig at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57071

--- Comment #10 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2013-04-30 21:46:11 UTC ---


Author: tkoenig
Date: Tue Apr 30 21:45:13 2013
New Revision: 198476

URL: http://gcc.gnu.org/viewcvs?rev=198476&root=gcc&view=rev
Log:
2013-04-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

    PR fortran/57071
    * frontend-passes.c (optimize_power):  Simplify
    1**k to 1.

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

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


Added:
    trunk/gcc/testsuite/gfortran.dg/power_5.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/frontend-passes.c
    trunk/gcc/testsuite/ChangeLog