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