1-- { dg-do compile } 2 3procedure 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 8begin 9 null; 10end Aggr26; 11