diff options
| -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 0000000000..8f5845adb4 --- /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; |