URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [read_repeat.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! PR39528 repeated entries not read when using list-directed input.`	`! PR39528 repeated entries not read when using list-directed input.`
`! Test case derived from reporters example.`	`! Test case derived from reporters example.`
`program rread`	`program rread`
`implicit none`	`implicit none`
`integer :: iarr(1:7), ia, ib, i`	`integer :: iarr(1:7), ia, ib, i`

`iarr = 0`	`iarr = 0`

`open(10, status="scratch")`	`open(10, status="scratch")`
`write(10,) " 21 3*2 /"`	`write(10,) " 21 3*2 /"`
`write(10,*) " 12"`	`write(10,*) " 12"`
`write(10,*) " 13"`	`write(10,*) " 13"`
`rewind(10)`	`rewind(10)`

`read(10,*) (iarr(i), i=1,7)`	`read(10,*) (iarr(i), i=1,7)`
`read(10,*) ia, ib`	`read(10,*) ia, ib`

`if (any(iarr(1:2).ne.1)) call abort`	`if (any(iarr(1:2).ne.1)) call abort`
`if (any(iarr(3:5).ne.2)) call abort`	`if (any(iarr(3:5).ne.2)) call abort`
`if (any(iarr(6:7).ne.0)) call abort`	`if (any(iarr(6:7).ne.0)) call abort`
`if (ia .ne. 12 .or. ib .ne. 13) call abort`	`if (ia .ne. 12 .or. ib .ne. 13) call abort`

`close(10)`	`close(10)`
`end program rread`	`end program rread`