This should always be signed chars, so use int8_t. This fixes a miscompile when
[llvm/stm8.git] / test / FrontendAda / field_order.ads
blob9b2b37c20db0024365581609cc7452c4b5769a71
1 -- RUN: %llvmgcc -S %s
2 package Field_Order is
3 type Tagged_Type is abstract tagged null record;
4 type With_Discriminant (L : Positive) is new Tagged_Type with record
5 S : String (1 .. L);
6 end record;
7 end;