3 ! PR 82257: ICE in gfc_typename(), compare_rank(), resolve_structure_cons()
9 type,abstract
:: c_base
11 procedure(i1
),private
,deferred
:: f_base
15 function i1(this
) result(res
)
17 class(c_base
),intent(IN
) :: this
18 class(c_base
), pointer :: res
22 type,abstract
,extends(c_base
) :: c_derived
24 procedure
:: f_base
=> f_derived
! { dg-error "Type mismatch in function result \\(CLASS\\(\\*\\)/CLASS\\(c_base\\)\\)" }
29 function f_derived(this
) result(res
) ! { dg-error "must be dummy, allocatable or pointer" }
30 class(c_derived
), intent(IN
) :: this
32 end function f_derived
47 class(*) function p(this
) ! { dg-error "must be dummy, allocatable or pointer" }
48 class(t
), intent(IN
) :: this