blob: 085e6d1e1ce89c295fb044d64c1d1496e428a2e5 [file] [log] [blame]
! { dg-do compile }
!
! PR 44869: [OOP] Missing TARGET check - and wrong code or accepts-invalid?
!
! Contributed by Satish.BD <bdsatish@gmail.com>
type :: test_case
end type
type :: test_suite
type(test_case) :: list
end type
contains
subroutine sub(self)
class(test_suite), intent(inout) :: self
type(test_case), pointer :: tst_case
tst_case => self%list ! { dg-error "is neither TARGET nor POINTER" }
end subroutine
end