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