gcc-4.9/gcc/testsuite/gnat.dg/vect8.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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