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

Subversion Repositories openrisc

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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-std=legacy" }`	`! { dg-options "-std=legacy" }`
`!`	`!`
`subroutine broken_equiv1`	`subroutine broken_equiv1`
`character*4 h`	`character*4 h`
`character*3 i`	`character*3 i`
`equivalence (h(1:3), i(2:1)) ! { dg-error "has length zero" }`	`equivalence (h(1:3), i(2:1)) ! { dg-error "has length zero" }`
`end subroutine`	`end subroutine`

`subroutine broken_equiv2`	`subroutine broken_equiv2`
`character*4 j`	`character*4 j`
`character*2 k`	`character*2 k`
`equivalence (j(2:3), k(1:5)) ! { dg-error "exceeds the string length" }`	`equivalence (j(2:3), k(1:5)) ! { dg-error "exceeds the string length" }`
`end subroutine`	`end subroutine`

`subroutine broken_equiv3`	`subroutine broken_equiv3`
`character*4 l`	`character*4 l`
`character*2 m`	`character*2 m`
`equivalence (l(2:3:4), m(1:2)) ! { dg-error "\[Ss\]yntax error" }`	`equivalence (l(2:3:4), m(1:2)) ! { dg-error "\[Ss\]yntax error" }`
`end subroutine`	`end subroutine`