[Bug fortran/47601] Internal Error: mio_component_ref(): Component not found

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

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2011.02.03 23:12:41
            Summary|Internal Error              |Internal Error:
                   |(mio_component_ref():       |mio_component_ref():
                   |Component not found) with   |Component not found
                   |strange behavior            |
     Ever Confirmed|0                           |1

--- Comment #8 from janus at gcc dot gnu.org 2011-02-03 23:12:41 UTC ---
(In reply to comment #7)
> gyre_lanr_bvp.f90:8.24:
> 
>   use gyre_lanr_jacobian
>                         1
> Internal Error at (1):
> mio_component_ref(): Component not found
> 
> at r169809.

Confirmed on x86_64-apple-darwin10.6.0. Reduced test case:


module gyre_kinds
  implicit none
end module

module gyre_bvp
  type :: bvp_t
  end type
end module

module gyre_jacobian
  type :: jacobian_t
     integer :: n_e
  end type
end module

module gyre_lanr_jacobian
  use gyre_jacobian
  type, extends(jacobian_t) :: lanr_jacobian_t
   contains
     procedure :: eval
  end type
  private
  public :: lanr_jacobian_t
contains
  function eval (this, w) result (A)
    class(lanr_jacobian_t) :: this
    real       :: w,A(this%n_e)
  end function
end module

module gyre_lanr_bvp
  use gyre_lanr_jacobian
end module



This surely is a duplicate of PR47546 (or at least closely related).