Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
debug12.ads
blob: dbc5896cc7327987b4420543c47cacdc1f842cbc [
file
] [
log
] [
blame
]
package
Debug12
is
type
Bit_Array
is
array
(
Positive
range
<>)
of
Boolean
with
Pack
;
A
:
Bit_Array
:=
(
1
..
10
=>
False
);
A2
:
Boolean
renames A
(
2
);
function
Get_A2
return
Boolean
;
end
Debug12
;