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