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) STOP 1
11 if (fraction (-0.0) /= 0.0) STOP 2
12 if (sign(1.0, fraction(-0.0)) /= -1.0) STOP 3
13 if (fraction (-2.0_8) /= -0.5) STOP 4
14
15end program test_frac
16