blob: 8f0cae1cbfd1afd47da213d2c45f959b7a31762b [file] [log] [blame]
package Unroll3 is
type Sarray is array (1 .. 4) of Float;
function "+" (X, Y : Sarray) return Sarray;
procedure Add (X, Y : Sarray; R : out Sarray);
end Unroll3;