gcc/testsuite/gnat.dg/vect8.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-w" }
   3
   4 package body Vect8 is
   5
   6    function Foo (V : Vec) return Vec is
   7       Ret : Vec;
   8    begin
   9       Ret (1) := V (1) + V (2);
  10       Ret (2) := V (1) - V (2);
  11       return Ret;
  12    end;
  13
  14 end Vect8;