2 ! { dg-options "-fdump-tree-original" }
8 integer, allocatable
:: t(:)
12 type(t1
), allocatable
:: x1(:)
20 allocate(var(i
)%x1(100))
21 allocate(var(i
)%x1(1)%t(100))
24 open(unit
= 37, file
= "/dev/null", status
= "old")
38 integer, intent(in
) :: counter
42 n
= size( [ ( var(i
)%x1
, i
= 1, size(var
) ) ] )
43 write(unit
= 37, fmt
= '(i5)') n
48 ! { dg-final { scan-tree-dump-times "__builtin_malloc" 4 "original" } }
49 ! { dg-final { scan-tree-dump-times "__builtin_free" 4 "original" } }