1package 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
8end Vect8;
9