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