PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / vect13.ads
blob7aeac5e527a6ee27c17caa87cdbbfa904878c11f
1 package Vect13 is
3 -- Constrained array types are vectorizable
4 type Sarray is array (1 .. 4) of Float;
5 for Sarray'Alignment use 16;
7 function "+" (X, Y : Sarray) return Sarray;
8 procedure Add (X, Y : Sarray; R : out Sarray);
10 end Vect13;