gcc/testsuite/gfortran.dg/altreturn_4.f90

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