Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
bit_packed_array4.adb
blob: 35088a7eba46b659657f005103a15c3db6699723 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Bit_Packed_Array4
is
procedure
Process
(
M
:
Message_Type
)
is
D
:
Data_Type
;
begin
D
:=
M
.
Data
;
end
;
end
Bit_Packed_Array4
;