1! { dg-do run }
2! PR fortran/26801
3  implicit none
4
5  integer :: i
6  integer,target :: u
7  logical :: l
8  character(len=8) :: A
9  type dt
10    integer, pointer :: a => NULL()
11  end type dt
12  type(dt) :: obj(2)
13
14  i = 2
15  l = associated(obj(i)%a)
16  write(A,*) l
17  l = associated(obj(i)%a,u)
18  print *, l
19  write(A,*) l
20end
21