summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/bad_array.adb
blob: 5d49f9ba68d741c3f24408423a48630fb16d9f5b (plain)
1
2
3
4
5
6
7
--  { dg-do compile }

procedure Bad_Array is
   A1 : array(Character range <> ) of Character := ( 'a', 'b', 'c' );
begin
   null;
end Bad_Array;