Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr22.ads
blob: 4fe86db3e9013b6c47d7c5bb6fdbd8792fbc2b8b [
file
] [
log
] [
blame
]
with
System
;
package
Aggr22
is
type
Rec
is
record
C
:
Character
;
I
:
aliased
Integer
;
end
record
;
My_Rec
:
aliased
Rec
;
pragma
Import
(
Ada
,
My_Rec
);
for
My_Rec
'Address use System'
To_Address
(
16
#40086000#);
procedure
Proc
;
end
Aggr22
;