aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gnat.dg/vect7.ads
blob: faf01679e23d399f55bdd937354c996136b51aa6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
package Vect7 is

  type v4sf is array (1 .. 4) of Float;
  for v4sf'Alignment use 16;
  pragma Machine_Attribute (v4sf, "vector_type");

  vzero  : constant v4sf := (0.0, 0.0, 0.0, 0.0);
  vconst : constant v4sf := (1.0, 2.0, 3.0, 4.0);
  vvar   : v4sf := vconst;

  F : Float := 5.0;

  procedure Assign;

end Vect7;