blob: 73d4ea5b9bc38494e01a62a90004bf95c00e89da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
-- { dg-do compile }
-- { dg-options "-gnatws" }
pragma Restrictions (No_Elaboration_Code);
package Array2 is
type Arr is array (Positive range <>) of Boolean;
A : Arr (1 .. 2 ** 2);
for A'Size use 16#1000_0000_0#;
end Array2;
|