blob: 0466473d57bb2385b42a1808e96641b1d9e9e1c1 [file] [log] [blame]
-- { dg-do compile }
procedure Aggr26 is
type Row is array (Positive) of Integer;
H : array (Positive) of Row := (others => (others => 0)); -- { dg-warning "\"Storage_Error\" will be raised at run time" }
begin
null;
end Aggr26;