1 ! PR rtl-optimization/82973
3 ! { dg-options "-Ofast -frounding-math" }
6 integer, parameter :: n
=16
7 real, dimension(n
) :: ar
, br
, modulo_result
, floor_result
8 integer, dimension(n
) :: ai
, bi
, imodulo_result
, ifloor_result
13 bi(1:4) = (/ 3,-3, 1, -1/)
19 modulo_result
= modulo(ar
,br
)
20 imodulo_result
= modulo(ai
,bi
)
21 floor_result
= ar
-floor(ar
/br
)*br
22 ifloor_result
= nint(real(ai
-floor(real(ai
)/real(bi
))*bi
))
24 if (modulo_result(i
) /= floor_result(i
)) then
27 if (imodulo_result(i
) /= ifloor_result(i
)) then