[Bug fortran/48706] Type extension inside subroutine

["janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2011.05.18 21:49:33
            Summary|[OOP] ICE (segfault) with   |Type extension inside
                   |TBP                         |subroutine
     Ever Confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org 2011-05-18 21:49:33 UTC ---
Reduced (non-polymorphic) test case:


module mod_diff_01
  implicit none
  type :: foo
  end type
contains
  subroutine create_ext()
    type, extends(foo) :: foo_e
    end type foo_e
  end subroutine create_ext
end module mod_diff_01

program diff_01
  use mod_diff_01
  implicit none
  call create_ext()
end program diff_01 


Apparently the segfault is simply due to the type extension happening inside a
subroutine (which is rather unusual but perfectly valid, I think).