Land the long talked about "type system rewrite" patch. This

[llvm/stm8.git] / test / FrontendAda / init_size.ads

-- RUN: %llvmgcc -S %s
package Init_Size is
   type T (B : Boolean := False) is record
      case B is
         when False =>
            I : Integer;
         when True =>
            J : Long_Long_Integer; -- Bigger than I
      end case;
   end record;
   A_T : constant T := (False, 0);
end;