blob: 5d49f9ba68d741c3f24408423a48630fb16d9f5b [file] [log] [blame]
-- { dg-do compile }
procedure Bad_Array is
A1 : array(Character range <> ) of Character := ( 'a', 'b', 'c' );
begin
null;
end Bad_Array;