gcc/testsuite/gnat.dg/array20.adb

   1 -- { dg-do assemble }
   2
   3 package body Array20 is
   4
   5    type Arr is array (Positive range <>) of Integer;
   6
   7    type P_Arr is access Arr;
   8
   9    N : constant P_Arr := null;
  10
  11    Table : P_Arr := N;
  12
  13 end Array20;