URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_g0_1.f08] - Blame information for rev 384

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! PR36420 Fortran 2008: g0 edit descriptor`
3			`! Test case provided by Jerry DeLisle`
4			`character(25) :: string = "(g0,g0,g0)"`
5			`character(33) :: buffer`
6			`write(buffer, '(g0,g0,g0)') ':',12340,':'`
7			`if (buffer.ne.":12340:") call abort`
8			`write(buffer, string) ':',0,':'`
9			`if (buffer.ne.":0:") call abort`
10			`write(buffer, string) ':',1.0/3.0,':'`
11			`if (buffer.ne.":.33333334:") call abort`
12			`write(buffer, '(1x,a,g0,a)') ':',1.0/3.0,':'`
13			`if (buffer.ne." :.33333334:") call abort`
14			`write(buffer, string) ':',"hello",':'`
15			`if (buffer.ne.":hello:") call abort`
16			`write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':'`
17			`if (buffer.ne.":TF:") call abort`
18			`write(buffer, "(g0,g0,',',g0,g0)") '(',( 1.2345, 2.4567 ),')'`
19			`if (buffer.ne."(1.2345001,2.4567001)") call abort`
20			`end`