1! { dg-do compile }
2! PR 19929
3! Deallocation of pointer components of derived type arrays
4program 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
13end program der_ptr_component
14