Fix warnings occured during profiledboostrap on
[official-gcc.git] / gcc / testsuite / gfortran.dg / altreturn_4.f90
blob7375544d2032139dcf3f716999317983eb5dc4b9
1 ! { dg-do compile }
2 ! { dg-options "-std=gnu" }
4 ! Tests the fix for PR28172, in which an ICE would result from
5 ! the contained call with an alternate retrun.
7 ! Contributed by Tobias Schlüter <tobi@gcc.gnu.org>
9 program blubb
10 call otherini(*998)
11 stop
12 998 stop
13 contains
14 subroutine init
15 call otherini(*999)
16 return
17 999 stop
18 end subroutine init
19 end program blubb