gcc/testsuite/gnat.dg/vect9_pkg.ads

   1 package Vect9_Pkg is
   2
   3    type Unit is array (1 .. 4) of Float;
   4    for Unit'Alignment use 32;
   5    pragma Machine_Attribute (Unit, "vector_type");
   6    pragma Machine_Attribute (Unit, "may_alias");
   7
   8    Zero_Unit : constant Unit := (others => 0.0);
   9
  10    function Mul (X : in Unit; Y : in Unit) return Unit;
  11    function "+"(Left, Right : Unit) return Unit;
  12    function "*"(Left, Right : Unit) return Unit;
  13
  14    type Unit_Vector is array (Positive range <>) of Unit;
  15    type Vector_Access is access all Unit_Vector;
  16
  17 end Vect9_Pkg;