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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [unf_read_corrupted_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR31880 silent data corruption in gfortran read statement`	`! PR31880 silent data corruption in gfortran read statement`
`! Test from PR.`	`! Test from PR.`
`program r3`	`program r3`

`integer(kind=4) :: a(1025),b(1025),c(1025),d(2048),e(1022)`	`integer(kind=4) :: a(1025),b(1025),c(1025),d(2048),e(1022)`

`a = 5`	`a = 5`
`b = 6`	`b = 6`
`c = 7`	`c = 7`
`e = 8`	`e = 8`

`do i=1,2048`	`do i=1,2048`
`d(i)=i`	`d(i)=i`
`end do`	`end do`

`open (3,form='unformatted', status="scratch")`	`open (3,form='unformatted', status="scratch")`
`write (3) a,b,c,d,e`	`write (3) a,b,c,d,e`
`rewind 3`	`rewind 3`
`d = 0`	`d = 0`
`read (3) a,b,c,d`	`read (3) a,b,c,d`
`close (3)`	`close (3)`

`if (d(1).ne.1) call abort`	`if (d(1).ne.1) call abort`
`if (d(2048).ne.2048) call abort`	`if (d(2048).ne.2048) call abort`

`end`	`end`