https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66864
kargl at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Last reconfirmed| |2015-07-14 CC| |kargl at gcc dot gnu.org Ever confirmed|0 |1 Known to fail| |4.7.4, 4.8.5, 4.9.3, 5.1.1, | |6.0 --- Comment #1 from kargl at gcc dot gnu.org --- It seems constant folding in simplify.c may be broken. Here's a testcase suitable for the testsuite once the bug is fixed. ! { dg-do run } ! PR fortran/66864 ! program t implicit none real(8) x x = 2.0d0**26.5d0 if (floor(x) /= 94906265) call abort if (floor(2.0d0**26.5d0)/= 94906265) call abort x = 777666555.6d0 if (floor(x) /= 777666555) call abort if (floor(777666555.6d0) /= 777666555) call abort x = 2000111222.6d0 if (floor(x) /= 2000111222) call abort if (floor(2000111222.6d0) /= 2000111222) call abort end program t