PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / vect8.ads
blobc926cd51ffa8c55c12754688c5dd89250780eef4
1 package Vect8 is
3 type Vec is array (1 .. 2) of Long_Float;
4 pragma Machine_Attribute (Vec, "vector_type");
6 function Foo (V : Vec) return Vec;
8 end Vect8;