test/FrontendAda/init_size.ads

   1 -- RUN: %llvmgcc -c %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;