blob: 89aa7a15ca24161aaee5f44009029035e25c2174 (
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) 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
|