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" 4 "original" } }
57 ! { dg-final { cleanup-tree-dump "original" } }