RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / array31.adb
blobb60474828efec82088740ec12cf2c38e0c9a3aa1
1 -- { dg-do run }
3 procedure Array31 is
5 type Boolean_Access is access Boolean;
7 type Boolean_Access_Array is
8 array (Positive range <>) of not null Boolean_Access;
10 X : constant Boolean_Access_Array := (1 => new Boolean'(False));
11 Y : constant Boolean_Access_Array := X & X;
13 begin
14 null;
15 end;