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