gcc/testsuite/gnat.dg/vect8.adb

-- { 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;