1! { dg-do compile } 2! { dg-options "-std=gnu" } 3! 4! Tests the fix for PR28172, in which an ICE would result from 5! the contained call with an alternate retrun. 6 7! Contributed by Tobias Schl�ter <tobi@gcc.gnu.org> 8 9program blubb 10 call otherini(*998) 11 stop 12998 stop 13contains 14 subroutine init 15 call otherini(*999) 16 return 17999 stop 18 end subroutine init 19end program blubb 20