gcc/testsuite/gfortran.dg/extends_12.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 48706: Type extension inside subroutine
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6
   7 module mod_diff_01
   8   implicit none
   9   type :: foo
  10   end type
  11 contains
  12   subroutine create_ext
  13     type, extends(foo) :: foo_e
  14     end type
  15   end subroutine
  16 end module
  17
  18 program diff_01
  19   use mod_diff_01
  20   implicit none
  21   call create_ext()
  22 end program