blob: 8104338672bee65638876db28fdbf3c12b3f1eed [file] [log] [blame]
! { 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