http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47601
--- Comment #11 from Kris <kristopher.kuhlman at gmail dot com> 2011-04-04
13:33:17 UTC ---
(In reply to comment #10)
> *** Bug 48428 has been marked as a duplicate of this bug. ***
I further reduced the code from bug 48248. I don't know if this helps, but if
you change the size of the a2n vector from something that refers to a component
of e to an integer, it goes away.
--
mio_component_ref_error.f90:39.41:
use elliptical_elements, only : line
1
Internal Error at (1):
mio_component_ref(): Component not found
--
module type_definitions
implicit none
private
public :: ellipse
type :: matching
integer :: n = -999
end type matching
type, extends(matching) :: ellipse
end type ellipse
end module type_definitions
module elliptical_elements
implicit none
contains
function line(e) result(a2n)
use type_definitions, only : ellipse
type(ellipse), intent(in) :: e
complex(8), dimension(e%N) :: a2n ! <- change "e%N" to "10"
end function line
end module elliptical_elements
module solution_mod
implicit none
private
public :: matrix_solution
contains
subroutine matrix_solution(e)
use type_definitions, only : ellipse
use elliptical_elements, only : line
type(ellipse), intent(inout) :: e
e = line(e)
end subroutine matrix_solution
end module solution_mod
