gcc/testsuite/gfortran.dg/der_ptr_component_1.f90

   1 ! { dg-do compile }
   2 ! PR 19929
   3 ! Deallocation of pointer components of derived type arrays
   4 program der_ptr_component
   5     type :: t
   6         integer, pointer :: p
   7     end type t
   8     type(t) :: a(1)
   9
  10     allocate(a(1)%p)
  11     deallocate(a(1)%p)
  12
  13 end program der_ptr_component