1 -- { dg-options "-cargs -O0 -g -dA -fgnat-encodings=minimal -margs" }
3 -- This testcase checks that in the DWARF description of the variant type
4 -- below, the C discriminant is properly described as unsigned, hence the 0x5a
5 -- ('Z') and 0x80 (128) values in the DW_AT_discr_list attribute. If it was
6 -- described as signed, we would have instead 90 and -128.
8 -- { dg-final { scan-assembler-times "0x5a.*DW_AT_discr_list" 1 } }
9 -- { dg-final { scan-assembler-times "0x80.*DW_AT_discr_list" 1 } }
14 type Rec_Type
(C
: Character) is record
16 when 'Z' .. Character'Val (128) => I
: Integer;
20 -- R : Rec_Type := ('Z', 2);
24 Ada
.Text_IO
.Put_Line
("" & R
.C
);