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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests the fix for PR28172, in which an ICE would result from`	`! Tests the fix for PR28172, in which an ICE would result from`
`! the contained call with an alternate retrun.`	`! the contained call with an alternate retrun.`

`! Contributed by Tobias Schl�ter`	`! Contributed by Tobias Schl�ter`

`program blubb`	`program blubb`
`call otherini(*998)`	`call otherini(*998)`
`stop`	`stop`
`998 stop`	`998 stop`
`contains`	`contains`
`subroutine init`	`subroutine init`
`call otherini(*999)`	`call otherini(*999)`
`return`	`return`
`999 stop`	`999 stop`
`end subroutine init`	`end subroutine init`
`end program blubb`	`end program blubb`