gcc/testsuite/gfortran.dg/abstract_type_7.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 44213: ICE when extending abstract type
   4 !
   5 ! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
   6
   7 module ice_module
   8   type :: a_type
   9   end type a_type
  10
  11   type,extends(a_type),abstract :: b_type
  12   end type b_type
  13
  14   type,extends(b_type) :: c_type
  15   end type c_type
  16 end module ice_module
  17
  18 ! { dg-final { cleanup-modules "ice_module" } }