2 ! { dg-options "-fdump-tree-original" }
4 ! Ensure that for zero-sized array, nonzero memory is allocated
9 type(t
), allocatable
:: x
, y(:)
14 if (.not
. allocated (x
)) call abort ()
15 if (.not
. allocated (y
)) call abort ()
18 ! { dg-final { scan-tree-dump "x = \\(struct t .\\) __builtin_malloc \\(1\\);" "original" } }
19 ! { dg-final { scan-tree-dump "y.data = \\(void . restrict\\) __builtin_malloc \\(1\\);" "original" } }