Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
rep_clause2.adb
blob: 1c26e1255b1b35be9a1d0c46ca359aaa61c37527 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Rep_Clause2
is
procedure
Assign
(
From
:
Data
;
Offset
:
Positive
;
I
:
Index
;
To
:
out
Bit_Array
)
is
begin
To
(
Offset
..
Offset
+
7
)
:=
Bit_Array
(
Conv
(
From
.
D
(
I
).
S
.
N
));
end
;
end
Rep_Clause2
;