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