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/] [read_many_1.f] - Diff between revs 149 and 154

Rev 149	Rev 154
`!{ dg-do run }`	`!{ dg-do run }`
`! PR26423 Large file I/O error related to buffering`	`! PR26423 Large file I/O error related to buffering`
`! Test case derived from case by Dale Ranta.`	`! Test case derived from case by Dale Ranta.`
`! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>`	`! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>`
`integer :: a(3000) , b(2048)`	`integer :: a(3000) , b(2048)`
`a=3`	`a=3`
`b=5`	`b=5`
`a(1) = 1`	`a(1) = 1`
`a(3000)=1234`	`a(3000)=1234`
`write(2) a`	`write(2) a`
`b(1) = 2`	`b(1) = 2`
`b(2048) = 5678`	`b(2048) = 5678`
`write(2) b`	`write(2) b`
`rewind 2`	`rewind 2`
`read(2) a`	`read(2) a`
`read(2) b`	`read(2) b`
`if (a(1).ne.1) call abort()`	`if (a(1).ne.1) call abort()`
`if (a(2).ne.3) call abort()`	`if (a(2).ne.3) call abort()`
`if (b(1).ne.2) call abort()`	`if (b(1).ne.2) call abort()`
`if (b(2).ne.5) call abort()`	`if (b(2).ne.5) call abort()`
`if (a(3000).ne.1234) call abort()`	`if (a(3000).ne.1234) call abort()`
`if (b(2048).ne.5678) call abort()`	`if (b(2048).ne.5678) call abort()`
`close(2, status='delete')`	`close(2, status='delete')`
`end`	`end`