gcc/testsuite/gnat.dg/debug18.adb

   1 -- { dg-do compile }
   2 -- { dg-skip-if "No Dwarf" { { hppa*-*-hpux* } && { ! lp64 } } }
   3 -- { dg-options "-cargs -O0 -g -dA -fgnat-encodings=minimal -margs" }
   4
   5 procedure Debug18 is
   6
   7    procedure Check (Size : Integer) is
   8       type Bit_Array_Type is array (1 .. Size) of boolean;
   9       pragma Pack (Bit_Array_Type);
  10
  11       Bits : Bit_Array_Type := (others => False);
  12    begin
  13       Bits (Bits'First) := True;
  14    end;
  15
  16 begin
  17    Check (Size => 9);
  18 end;
  19
  20 -- { dg-final { scan-assembler-not "DW_AT_lower_bound" } }