1! { dg-do compile }
2!
3! PR 47601: [OOP] Internal Error: mio_component_ref(): Component not found
4!
5! Contributed by Rich Townsend <townsend@astro.wisc.edu>
6
7module type_definitions
8  implicit none
9  type :: matching 
10     integer :: n = -999
11  end type
12  type, extends(matching) :: ellipse
13  end type
14end module type_definitions
15
16module elliptical_elements
17  implicit none
18contains
19  function line(e) result(a2n)
20    use type_definitions
21    type(ellipse), intent(in) :: e
22    complex, dimension(e%N) :: a2n   ! <- change "e%N" to "10" 
23  end function line
24end module
25
26  use type_definitions
27  use elliptical_elements
28end
29