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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_bz_bn.f] - Blame information for rev 313

Line No.	Rev	Author	Line
1	302	jeremybenn	`c { dg-do run }`
2			`c PR38097 I/O with blanks in exponent fails; BN edit descriptor`
3			`c Test case derived from reporter.`
4			`character(11) :: a = ' 2. 3 e+ 3'`
5			`character(11) :: b = ' 2.003 e+ 3'`
6			`character(11) :: c = ' 2.002 e+1 '`
7			`real :: f`
8
9			`f = 0.0`
10			`read (a,'(BZ,E11.0)') f`
11			`if (f .ne. 2003.0) call abort`
12			`f = 0.0`
13			`read (a,'(BN,E11.0)') f`
14			`if (f .ne. 2300.0) call abort`
15			`f = 0.0`
16			`read (b,'(BN,E11.0)') f`
17			`if (f .ne. 2003.0) call abort`
18			`f = 0.0`
19			`read (c,'(E11.0)') f`
20			`if (f .ne. 20.020) call abort`
21			`f = 0.0`
22			`read (c,'(BZ,E11.0)') f`
23			`if (f .ne. 2.002e10) call abort`
24
25			`end`
26			`c end of program`
27