gcc/testsuite/gnat.dg/vect8.ads

   1 package Vect8 is
   2
   3    type Vec is array (1 .. 2) of Long_Float;
   4    pragma Machine_Attribute (Vec, "vector_type");
   5
   6    function Foo (V : Vec) return Vec;
   7
   8 end Vect8;