1 -- RUN: %llvmgcc -S %s 2 package Init_Size is 3 type T (B : Boolean := False) is record 4 case B is 5 when False => 6 I : Integer; 7 when True => 8 J : Long_Long_Integer; -- Bigger than I 9 end case; 10 end record; 11 A_T : constant T := (False, 0); 12 end; 13
