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

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR24224 Test formatted input/output to/from character arrays with strides`	`! PR24224 Test formatted input/output to/from character arrays with strides`
`! other than 1. Test that reading stops at the end of the current record.`	`! other than 1. Test that reading stops at the end of the current record.`
`! Contributed by Jerry DeLisle .`	`! Contributed by Jerry DeLisle .`
`program arrayio_7`	`program arrayio_7`
`character*4, dimension(8) :: abuf = (/"0123","4567","89AB","CDEF", &`	`character*4, dimension(8) :: abuf = (/"0123","4567","89AB","CDEF", &`
`"0123","4567","89AB","CDEF"/)`	`"0123","4567","89AB","CDEF"/)`
`character*4, dimension(2,4) :: buf`	`character*4, dimension(2,4) :: buf`
`character*8 :: a`	`character*8 :: a`
`equivalence (buf,abuf)`	`equivalence (buf,abuf)`
`read(buf(2, 1:3:2), '(a8)') a`	`read(buf(2, 1:3:2), '(a8)') a`
`if (a.ne."4567") call abort()`	`if (a.ne."4567") call abort()`
`end program arrayio_7`	`end program arrayio_7`