14 lines
201 B
Ada
14 lines
201 B
Ada
|
-- { 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;
|