gcc/testsuite/gfortran.dg/extends_8.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 41784: [OOP] ICE in load_derived_extensions
   4 !
   5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
   6
   7 module m
   8   type  :: A
   9   end type
  10   type, extends(A) :: B
  11   end type
  12 end module
  13
  14 use m, only: A
  15 end
  16
  17 ! { dg-final { cleanup-modules "m" } }