! { dg-do compile } | |
! PR 88008 - this use to ICE. Original test case by | |
! Gerhard Steinmetz. | |
module m | |
type t | |
integer, pointer :: z | |
contains | |
procedure :: g | |
end type | |
contains | |
subroutine g(x) | |
class(t) :: x | |
call x%z%g() ! { dg-error "Error in typebound call" } | |
end | |
end |