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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [e_d_fmt.f90] - Blame information for rev 823

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! Verify that the D format uses 'D' as the exponent character.`
3			`! " " " E " " 'E' " " " "`
4			`CHARACTER*10 c1, c2`
5			`REAL(kind=8) r`
6			`r = 1.0`
7			`write(c1,"(e9.2)") r`
8			`write(c2,"(d9.2)") r`
9
10			`if (trim(adjustl(c1)) .ne. "0.10E+01") call abort()`
11			`if (trim(adjustl(c2)) .ne. "0.10D+01") call abort()`
12
13			`END`