gcc-4.9/gcc/testsuite/gnat.dg/array20.adb


1
2
3
4
5
6
7
8
9
10
11
12
13

-- { dg-do assemble }

package body Array20 is

   type Arr is array (Positive range <>) of Integer;

   type P_Arr is access Arr;

   N : constant P_Arr := null;

   Table : P_Arr := N;

end Array20;