2 ! { dg-options "-fdump-tree-original -fdump-tree-original -fmax-stack-var-size=1" }
15 class(t
), allocatable
:: x
16 if(allocated(x
)) call abort()
17 if(.not
.same_type_as(x
,y
)) call abort()
21 class(t
), allocatable
:: x(:)
22 if(allocated(x
)) call abort()
23 if(.not
.same_type_as(x
,y
)) call abort()
27 ! { dg-final { scan-tree-dump-times "__builtin_free" 2 "original" } }