RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-10-18 18:42:46 +02:00
Code Issues Projects Releases Wiki Activity

Testcase with non-integer "bitfields" (in quotes,

Browse Source 
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 bc89f424b7
commit 8a7547d26f
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/FrontendAda/non_bitfield.ads Normal file
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;