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