Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
addr16.adb
blob: 8f09da023fb2ec6842d3b6d82f87b1ec25787694 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Addr16_Pkg
;
use
Addr16_Pkg
;
procedure
Addr16
(
R
:
Rec
)
is
pragma
Unsuppress
(
Alignment_Check
);
B
:
Integer
;
for
B
'Address use R.A'
Address
;
begin
null
;
end
;