1
0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-21 00:32:23 +00:00
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;