Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
vect8.adb
blob: 7b1cecf083b0fc4051ce2e8b9bec376ac3d9885c [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-w"
}
package
body
Vect8
is
function
Foo
(
V
:
Vec
)
return
Vec
is
Ret
:
Vec
;
begin
Ret
(
1
)
:=
V
(
1
)
+
V
(
2
);
Ret
(
2
)
:=
V
(
1
)
-
V
(
2
);
return
Ret
;
end
;
end
Vect8
;