! { dg-do run }
|
! { dg-do run }
|
! PR35962 Implement F2003 rounding modes.
|
! PR35962 Implement F2003 rounding modes.
|
! Test case prepared by Jerry DeLisle
|
! Test case prepared by Jerry DeLisle
|
character(11) :: fmt(7)
|
character(11) :: fmt(7)
|
character(80) :: line
|
character(80) :: line
|
integer :: i
|
integer :: i
|
fmt = (/'(RU,6F10.1)', '(RD,6F10.1)', '(RZ,6F10.1)', &
|
fmt = (/'(RU,6F10.1)', '(RD,6F10.1)', '(RZ,6F10.1)', &
|
'(RN,6F10.2)', '(RC,6F10.2)', '(RP,6F10.1)', &
|
'(RN,6F10.2)', '(RC,6F10.2)', '(RP,6F10.1)', &
|
'(SP,6F10.1)' /)
|
'(SP,6F10.1)' /)
|
do i = 1, 7
|
do i = 1, 7
|
!print fmt(i), 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
!print fmt(i), 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
end do
|
end do
|
write(line, fmt(1)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
write(line, fmt(1)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
if (line.ne." 1.3 1.3 1.3 1.3 1.3 1.2") call abort
|
if (line.ne." 1.3 1.3 1.3 1.3 1.3 1.2") call abort
|
write(line, fmt(2)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
write(line, fmt(2)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
if (line.ne." 1.2 1.2 1.2 1.2 1.2 1.1") call abort
|
if (line.ne." 1.2 1.2 1.2 1.2 1.2 1.1") call abort
|
write(line, fmt(3)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
write(line, fmt(3)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
if (line.ne." 1.2 1.2 1.2 1.2 1.2 1.1") call abort
|
if (line.ne." 1.2 1.2 1.2 1.2 1.2 1.1") call abort
|
write(line, fmt(4)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
write(line, fmt(4)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
if (line.ne." 1.20 1.22 1.25 1.27 1.30 1.12") call abort
|
if (line.ne." 1.20 1.22 1.25 1.27 1.30 1.12") call abort
|
write(line, fmt(5)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
write(line, fmt(5)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
if (line.ne." 1.20 1.22 1.25 1.27 1.30 1.13") call abort
|
if (line.ne." 1.20 1.22 1.25 1.27 1.30 1.13") call abort
|
write(line, fmt(6)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
write(line, fmt(6)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
if (line.ne." 1.2 1.2 1.3 1.3 1.3 1.1") call abort
|
if (line.ne." 1.2 1.2 1.3 1.3 1.3 1.1") call abort
|
write(line, fmt(7)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
write(line, fmt(7)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
|
if (line.ne." +1.2 +1.2 +1.3 +1.3 +1.3 +1.1") call abort
|
if (line.ne." +1.2 +1.2 +1.3 +1.3 +1.3 +1.1") call abort
|
|
|
end
|
end
|
|
|