blob: 9b67427027c72816341dbb6a6ca6518d56228af6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-- { dg-do compile }
-- { dg-skip-if "No Dwarf" { { hppa*-*-hpux* } && { ! lp64 } } }
-- { dg-options "-cargs -O0 -g -dA -fgnat-encodings=minimal -margs" }
package Debug1 is
type Index_T is new Positive range 1 .. 128;
type Array_Type is array (Index_T range <>) of Integer;
type Record_Type (N : Index_T := 16) is record
A : Array_Type (1 .. N);
end record;
R : Record_Type;
end Debug1;
-- { dg-final { scan-assembler-times "DW_AT_upper_bound" 4 } }
|
