gcc/testsuite/gfortran.dg/extends_13.f03

   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
   7 module type_definitions
   8   implicit none
   9   type :: matching
  10      integer :: n = -999
  11   end type
  12   type, extends(matching) :: ellipse
  13   end type
  14 end module type_definitions
  15
  16 module elliptical_elements
  17   implicit none
  18 contains
  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
  24 end module
  25
  26   use type_definitions
  27   use elliptical_elements
  28 end
  29
  30 ! { dg-final { cleanup-modules "type_definitions elliptical_elements" } }