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