1! { dg-do run } 2! 3! PR 42647: Missed initialization/dealloc of allocatable scalar DT with allocatable component 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6 7type t 8 integer, allocatable :: p 9end type t 10type(t), allocatable :: a 11 12deallocate(a,stat=istat) 13if (istat == 0) call abort() 14end 15