gcc/testsuite/gnat.dg/vect7.ads

   1 package Vect7 is
   2
   3   type v4sf is array (1 .. 4) of Float;
   4   for v4sf'Alignment use 16;
   5   pragma Machine_Attribute (v4sf, "vector_type");
   6
   7   vzero  : constant v4sf := (0.0, 0.0, 0.0, 0.0);
   8   vconst : constant v4sf := (1.0, 2.0, 3.0, 4.0);
   9   vvar   : v4sf := vconst;
  10
  11   F : Float := 5.0;
  12
  13   procedure Assign;
  14
  15 end Vect7;