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