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

13 lines
279 B
Ada

-- RUN: %llvmgcc -S %s
package Non_Bitfield is
type SP is access String;
type E is (A, B, C);
type T (D : E) is record
case D is
when A => X : Boolean;
when B => Y : SP;
when C => Z : String (1 .. 2);
end case;
end record;
end;