blob: a600d0fa5dcebd0156287f9ce9775db2ea3373f9 [file] [log] [blame]
package Vect12 is
-- Constrained array types are vectorizable
type Sarray is array (1 .. 4) of Float;
for Sarray'Alignment use 16;
function "+" (X, Y : Sarray) return Sarray;
procedure Add (X, Y : Sarray; R : out Sarray);
end Vect12;