forked from OSchip/llvm-project
Testcase with non-integer "bitfields" (in quotes,
since they didn't actually need to be bitfields, though they are marked as such). llvm-svn: 45588
This commit is contained in:
parent
94cf8061e7
commit
d98c63ebb9
|
@ -0,0 +1,12 @@
|
|||
-- 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;
|
Loading…
Reference in New Issue