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