[Bug fortran/48279] [4.6/4.7 Regression] segfault in gfc_check_vardef_context

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48279

--- Comment #7 from janus at gcc dot gnu.org 2011-03-28 20:39:53 UTC ---
Reduced/modified test case:


  interface get
    procedure get1
  end interface

  integer :: h
  call set1 (get (h))

contains

  subroutine set1 (a)
    integer, intent(inout) :: a
  end subroutine

  integer function get1 (s)
    integer :: s
  end function

end