1! { dg-do run } 2! 3! Test for pr52413 4! 5 6program test_frac 7 8 real :: y 9 y=fraction (-2.0) 10 if (fraction (-2.0) /= -0.5) call abort () 11 if (fraction (-0.0) /= 0.0) call abort () 12 if (sign(1.0, fraction(-0.0)) /= -1.0) call abort () 13 if (fraction (-2.0_8) /= -0.5) call abort () 14 15end program test_frac 16