blob: ef7a86e3ddba7fc01b944468aa3954e68b372a9b (
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" 4 } }
|