1with Unroll4_Pkg; use Unroll4_Pkg; 2 3package Unroll4 is 4 5 type Sarray is array (1 .. N) of Float; 6 7 function "+" (X, Y : Sarray) return Sarray; 8 procedure Add (X, Y : Sarray; R : out Sarray); 9 10end Unroll4; 11