blob: 2fdc6e13e9176a98e246caa58f05a775221a8e9b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- { dg-do compile { target *-*-linux* } }
-- { dg-options "-gdwarf-2 -cargs -dA -margs" }
package Debug1 is
function N return Integer;
pragma Import (Ada, N);
type Arr is array (-N .. N) of Boolean;
A : Arr;
end Debug1;
-- { dg-final { scan-assembler-times "DW_AT_artificial" 8 } }
|