[Bug fortran/66864] floor function error

[kargl at gcc dot gnu.org]

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