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


1
2
3
4
5
6
7
8

package Vect8 is

   type Vec is array (1 .. 2) of Long_Float;
   pragma Machine_Attribute (Vec, "vector_type");

   function Foo (V : Vec) return Vec;

end Vect8;