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