gcc/testsuite/gnat.dg/vect8.adb

   1 package body Vect8 is
   2
   3    function Foo (V : Vec) return Vec is
   4       Ret : Vec;
   5    begin
   6       Ret (1) := V (1) + V (2);
   7       Ret (2) := V (1) - V (2);
   8       return Ret;
   9    end;
  10
  11 end Vect8;