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;