blob: 882bf2a740c4fdd9dd6164bd2b6f0f1f836c40ea [file] [log] [blame]
package Vect16 is
type Sarray is array (1 .. 5) of Long_Float;
for Sarray'Alignment use 16;
procedure Add_Sub (X, Y : Sarray; R,S : out Sarray);
end Vect16;