This should always be signed chars, so use int8_t. This fixes a miscompile when
[llvm/stm8.git] / test / FrontendAda / non_bitfield.ads
blob8a49d46f6b4286db0f86e6c870681cd1f3594047
1 -- RUN: %llvmgcc -S %s
2 package Non_Bitfield is
3 type SP is access String;
4 type E is (A, B, C);
5 type T (D : E) is record
6 case D is
7 when A => X : Boolean;
8 when B => Y : SP;
9 when C => Z : String (1 .. 2);
10 end case;
11 end record;
12 end;