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