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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! PR31880 silent data corruption in gfortran read statement`
3			`! Test from PR.`
4			`program r3`
5
6			`integer(kind=4) :: a(1025),b(1025),c(1025),d(2048),e(1022)`
7
8			`a = 5`
9			`b = 6`
10			`c = 7`
11			`e = 8`
12
13			`do i=1,2048`
14			`d(i)=i`
15			`end do`
16
17			`open (3,form='unformatted', status="scratch")`
18			`write (3) a,b,c,d,e`
19			`rewind 3`
20			`d = 0`
21			`read (3) a,b,c,d`
22			`close (3)`
23
24			`if (d(1).ne.1) call abort`
25			`if (d(2048).ne.2048) call abort`
26
27			`end`