! { dg-do compile }! Tests the fix for PR28172, in which an ICE would result from! the contained call with an alternate retrun.! Contributed by Tobias Schl�ter <tobi@gcc.gnu.org>program blubbcall otherini(*998)stop998stopcontains subroutine initcall otherini(*999)return999stop end subroutine initend program blubb