Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
sso2.adb
blob: dc5b8cc56533dd384a91975993d598ebd59f33b5 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Ada
.
Unchecked_Conversion
;
package
body SSO2
is
function
Conv
is
new
Ada
.
Unchecked_Conversion
(
Arr1
,
Arr2
);
procedure
Proc
(
A1
:
Arr1
;
A2
:
out
Arr2
)
is
begin
A2
:=
Conv
(
A1
);
end
;
end
SSO2
;