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:
Duncan Sands 2008-01-04 17:31:56 +00:00
parent 94cf8061e7
commit d98c63ebb9
1 changed files with 12 additions and 0 deletions

View File

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