! { dg-do run } | |
! | |
! Test for pr52413 | |
! | |
program test_frac | |
real :: y | |
y=fraction (-2.0) | |
if (fraction (-2.0) /= -0.5) STOP 1 | |
if (fraction (-0.0) /= 0.0) STOP 2 | |
if (sign(1.0, fraction(-0.0)) /= -1.0) STOP 3 | |
if (fraction (-2.0_8) /= -0.5) STOP 4 | |
end program test_frac |