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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Test of the fix to the bug triggered by NIST fm908.for.`
3			`! Contributed by Paul Thomas`
4			`!`
5			`program past_eor`
6			`character(len=82) :: buffer`
7			`real :: a(2), b(2), c(2), d(2), e(2)`
8
9			`e = (/2.34,2.456/)`
10
11			`! tests 28-31 from fm908.for`
12
13			`buffer = ' 2.34 , 2.456 2.34 , 2.456 0.234E01, 2.456E00&`
14			`& 0.234E+001, 2.456E-000'`
15
16			`READ (UNIT=buffer,FMT=10) a, b, c, d`
17			`10 FORMAT (2(2(G7.5,1X),2X),2(G10.4E2,1X),1X,2(G11.7E4,1X))`
18
19			`if (any (a.ne.e).or.any (b.ne.e).or.any (c.ne.e).or.any (d.ne.e)) call abort ()`
20
21			`end program past_eor`
22