2 ! { dg-options "-fdump-tree-original" }
4 ! PR 41586: Allocatable _scalars_ are never auto-deallocated
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
8 module automatic_deallocation
16 integer, allocatable :: j
20 class(t0), allocatable :: k
25 ! (1) simple allocatable scalars
27 integer, allocatable :: m
32 ! (2) allocatable scalar CLASS variables
34 class(t0), allocatable :: m
39 ! (3) allocatable scalar components
46 ! (4) allocatable scalar CLASS components
56 ! { dg-final { scan-tree-dump-times "__builtin_free" 5 "original" } }
58 ! { dg-final { cleanup-modules "automatic_deallocation" } }
59 ! { dg-final { cleanup-tree-dump "original" } }