1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do run }
! PR35962 Implement F2003 rounding modes.
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
character(11) :: fmt(7)
character(80) :: line
integer :: i
fmt = (/'(RU,6F10.1)', '(RD,6F10.1)', '(RZ,6F10.1)', &
'(RN,6F10.2)', '(RC,6F10.2)', '(RP,6F10.1)', &
'(SP,6F10.1)' /)
do i = 1, 7
!print fmt(i), 1.20, 1.22, 1.25, 1.27, 1.30, 1.125
end do
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
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
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
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
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
write(line, fmt(6)) 1.20, 1.22, 1.250001, 1.27, 1.30, 1.125
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.250001, 1.27, 1.30, 1.125
if (line.ne." +1.2 +1.2 +1.3 +1.3 +1.3 +1.1") call abort
end
|
