! { dg-do compile } | |
! | |
! PR 59502: [OOP] ICE on invalid on pointer assignment to non-pointer CLASS | |
! | |
! Contributed by Andrew Benson <abensonca@gmail.com> | |
implicit none | |
type :: d | |
end type | |
type :: p | |
class(d) :: cc ! { dg-error "must be allocatable or pointer" } | |
end type | |
contains | |
function pc(pd) | |
type(p) :: pc | |
class(d), intent(in), target :: pd | |
pc%cc => pd ! { dg-error "is not a member of" } | |
end function | |
end |