1! { dg-do compile }
2!
3! PR 44869: [OOP] Missing TARGET check - and wrong code or accepts-invalid?
4!
5! Contributed by Satish.BD <bdsatish@gmail.com>
6
7  type :: test_case
8  end type 
9
10  type :: test_suite
11    type(test_case) :: list
12  end type
13
14contains
15
16  subroutine sub(self)
17    class(test_suite), intent(inout) :: self
18    type(test_case), pointer :: tst_case
19    tst_case => self%list       ! { dg-error "is neither TARGET nor POINTER" }
20  end subroutine
21
22end
23