[Bug ada/17954] Legal program rejected, packed array of booleans

[nicolas.boulenguez at free dot fr]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17954

nicolas.boulenguez at free dot fr changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |nicolas.boulenguez at free
                   |                            |dot fr

--- Comment #2 from nicolas.boulenguez at free dot fr 2011-08-31 12:41:28 UTC 
---
From: Jörgen Tegnér <jorgen.teg...@telia.com>
The compiler message is different with 4.3.2-2. Now it reads
test_124.ads:12:36: size for "T1_arr_constrained" too small, minimum
allowed is 256
test_124.ads:22:36: size for "T2_arr_constrained" too small, minimum
allowed is 248

I get the same results with 4.6.1, so I propose to test only one type.
package Test_124 is                                                             
   type T is range 1 .. 32;                                                     
   type T_arr_unconstrained is array (T range <>) of boolean;                   
   type T_arr_constrained is new T_arr_unconstrained (T);                       
   pragma pack (T_arr_unconstrained);                                           
   for T_arr_constrained'size use 32;                                           
end Test_124;