gcc/testsuite/gnat.dg/bias1.adb

   1 --  { dg-do compile }
   2 --  { dg-options "-cargs -g -dA -gnatws -fgnat-encodings=gdb -margs" }
   3 --  { dg-final { scan-assembler "DW_AT_GNU_bias" } }
   4
   5 procedure Bias1 is
   6    type Small is range -7 .. -4;
   7    for Small'Size use 2;
   8    Y : Small := -5;
   9    Y1 : Small := -7;
  10
  11    type Byte is mod 256;
  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;
  16
  17    type Char_Range is range 65 .. 68;
  18    for Char_Range'Size use 2;
  19    Cval : Char_Range := 65;
  20
  21    type SomePackedRecord is record
  22       R: Small;
  23       S: Small;
  24    end record;
  25    pragma Pack (SomePackedRecord);
  26    SPR : SomePackedRecord := (R => -4, S => -5);
  27
  28    type Packed_Array is array (1 .. 3) of Small;
  29    pragma pack (Packed_Array);
  30    A : Packed_Array := (-7, -5, -4);
  31
  32 begin
  33    null;
  34 end Bias1;