1! { dg-do compile }
2!
3! PR 48059: [4.6 Regression][OOP] ICE in in gfc_conv_component_ref: character function of extended type
4!
5! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
6
7module a_module
8  type :: a_type
9     integer::length=0
10  end type a_type
11  type,extends(a_type) :: b_type
12  end type b_type
13contains
14  function a_string(this) result(form)
15    class(a_type),intent(in)::this
16    character(max(1,this%length))::form
17  end function a_string
18  subroutine b_sub(this)
19    class(b_type),intent(inout),target::this
20    print *,a_string(this)
21  end subroutine b_sub
22end module a_module
23