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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [altreturn_2.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do compile }`	`! { dg-do compile }`
`program altreturn_2`	`program altreturn_2`
`call foo() ! { dg-error "Missing alternate return" }`	`call foo() ! { dg-error "Missing alternate return" }`
`contains`	`contains`
`subroutine foo(*)`	`subroutine foo(*)`
`return`	`return`
`end subroutine`	`end subroutine`
`end program`	`end program`