diff options
author | Duncan Sands <baldrick@free.fr> | 2008-01-04 17:31:56 +0000 |
---|---|---|
committer | Duncan Sands <baldrick@free.fr> | 2008-01-04 17:31:56 +0000 |
commit | ad04cb28c58b51ced15bd1221d5cb605fb35ebe3 (patch) | |
tree | 26e3bb0fbfd623484322714b6a6c021ebeb115a2 /test/FrontendAda/non_bitfield.ads | |
parent | 632146044083683a987260599fca3a717b7e38a4 (diff) | |
download | external_llvm-ad04cb28c58b51ced15bd1221d5cb605fb35ebe3.zip external_llvm-ad04cb28c58b51ced15bd1221d5cb605fb35ebe3.tar.gz external_llvm-ad04cb28c58b51ced15bd1221d5cb605fb35ebe3.tar.bz2 |
Testcase with non-integer "bitfields" (in quotes,
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
Diffstat (limited to 'test/FrontendAda/non_bitfield.ads')
-rw-r--r-- | test/FrontendAda/non_bitfield.ads | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/FrontendAda/non_bitfield.ads b/test/FrontendAda/non_bitfield.ads new file mode 100644 index 0000000..8f5845a --- /dev/null +++ b/test/FrontendAda/non_bitfield.ads @@ -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; |