gcc/testsuite/gfortran.dg/associated_4.f90

   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
  20 end