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/] [goto_8.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`!`	`!`
`! PR 41781: [OOP] bogus undefined label error with SELECT TYPE.`	`! PR 41781: [OOP] bogus undefined label error with SELECT TYPE.`
`!`	`!`
`! Contributed by Salvatore Filippone`	`! Contributed by Salvatore Filippone`
`! and Tobias Burnus >burnus@gcc.gnu.org>`	`! and Tobias Burnus >burnus@gcc.gnu.org>`

`! 1st example: jumping out of SELECT TYPE (valid)`	`! 1st example: jumping out of SELECT TYPE (valid)`
`type bar`	`type bar`
`integer :: i`	`integer :: i`
`end type bar`	`end type bar`
`class(bar), pointer :: var`	`class(bar), pointer :: var`
`select type(var)`	`select type(var)`
`class default`	`class default`
`goto 9999`	`goto 9999`
`end select`	`end select`
`9999 continue`	`9999 continue`

`! 2nd example: jumping out of BLOCK (valid)`	`! 2nd example: jumping out of BLOCK (valid)`
`block`	`block`
`goto 88`	`goto 88`
`end block`	`end block`
`88 continue`	`88 continue`

`! 3rd example: jumping into BLOCK (invalid)`	`! 3rd example: jumping into BLOCK (invalid)`
`goto 99 ! { dg-error "is not in the same block" }`	`goto 99 ! { dg-error "is not in the same block" }`
`block`	`block`
`99 continue ! { dg-error "is not in the same block" }`	`99 continue ! { dg-error "is not in the same block" }`
`end block`	`end block`

`end`	`end`