gcc/testsuite/gnat.dg/aggr22.adb

   1 -- { dg-do compile }
   2
   3 package body Aggr22 is
   4
   5   type Ptr is access all Integer;
   6   type Arr is array (Positive range <>) of Ptr;
   7
   8   procedure Proc is
   9     A : Arr (1 .. 33);
  10   begin
  11     A := (1 => null, 2 .. 32 => My_Rec.I'Access, 33 => null);
  12   end;
  13
  14 end Aggr22;