1-- { dg-do compile }
2-- { dg-options "-fdump-tree-gimple" }
3
4with Ada.Streams; use Ada.Streams;
5
6procedure Aggr29 is
7  A : aliased Stream_Element_Array := (1 .. 512 => <>);
8begin
9  null;
10end;
11
12-- { dg-final { scan-tree-dump-not "a___UNC = \\*" "gimple" } }
13