gcc/testsuite/gnat.dg/aggr26.adb

   1 --  { dg-do compile }
   2
   3 procedure Aggr26 is
   4
   5     type Row is array (Positive) of Integer;
   6     H : array (Positive) of Row := (others => (others => 0));  --  { dg-warning "Storage_Error will be raised at run time" }
   7
   8 begin
   9    null;
  10 end Aggr26;