URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [round_1.f03] - Blame information for rev 801

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR35962 Implement F2003 rounding modes.`
3			`! Test case prepared by Jerry DeLisle`
4			`character(11) :: fmt(7)`
5			`character(80) :: line`
6			`integer :: i`
7			`fmt = (/'(RU,6F10.1)', '(RD,6F10.1)', '(RZ,6F10.1)', &`
8			`'(RN,6F10.2)', '(RC,6F10.2)', '(RP,6F10.1)', &`
9			`'(SP,6F10.1)' /)`
10			`do i = 1, 7`
11			`!print fmt(i), 1.20, 1.22, 1.25, 1.27, 1.30, 1.125`
12			`end do`
13			`write(line, fmt(1)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125`
14			`if (line.ne." 1.3 1.3 1.3 1.3 1.3 1.2") call abort`
15			`write(line, fmt(2)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125`
16			`if (line.ne." 1.2 1.2 1.2 1.2 1.2 1.1") call abort`
17			`write(line, fmt(3)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125`
18			`if (line.ne." 1.2 1.2 1.2 1.2 1.2 1.1") call abort`
19			`write(line, fmt(4)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125`
20			`if (line.ne." 1.20 1.22 1.25 1.27 1.30 1.12") call abort`
21			`write(line, fmt(5)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125`
22			`if (line.ne." 1.20 1.22 1.25 1.27 1.30 1.13") call abort`
23			`write(line, fmt(6)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125`
24			`if (line.ne." 1.2 1.2 1.3 1.3 1.3 1.1") call abort`
25			`write(line, fmt(7)) 1.20, 1.22, 1.25, 1.27, 1.30, 1.125`
26			`if (line.ne." +1.2 +1.2 +1.3 +1.3 +1.3 +1.1") call abort`
27
28			`end`