mirror of
https://github.com/RPCSX/llvm.git
synced 2024-12-05 18:37:17 +00:00
ad04cb28c5
since they didn't actually need to be bitfields, though they are marked as such). git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45588 91177308-0d34-0410-b5e6-96231b3b80d8
13 lines
279 B
Ada
13 lines
279 B
Ada
-- RUN: %llvmgcc -c %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;
|