2 -- { dg-options "-cargs -g -dA -gnatws -fgnat-encodings=gdb -margs" }
3 -- { dg-final { scan-assembler "DW_AT_GNU_bias" } }
6 type Small
is range -7 .. -4;
12 type Repeat_Count_T
is new Byte
range 1 .. 2 ** 6;
13 for Repeat_Count_T
'Size use 6;
14 X
: Repeat_Count_T
:= 64;
15 X1
: Repeat_Count_T
:= 1;
17 type Char_Range
is range 65 .. 68;
18 for Char_Range
'Size use 2;
19 Cval
: Char_Range
:= 65;
21 type SomePackedRecord
is record
25 pragma Pack
(SomePackedRecord
);
26 SPR
: SomePackedRecord
:= (R
=> -4, S
=> -5);
28 type Packed_Array
is array (1 .. 3) of Small
;
29 pragma pack
(Packed_Array
);
30 A
: Packed_Array
:= (-7, -5, -4);