llvm/test/FrontendAda/init_size.ads
2010-11-25 21:21:59 +00:00

13 lines
296 B
Ada

-- 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;