gcc/testsuite/gfortran.dg/altreturn_4.f90

   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
   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