gcc/testsuite/gnat.dg/aggr29.adb

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