1package Vect17 is 2 3 type Sarray is array (1 .. 5) of Long_Float; 4 for Sarray'Alignment use 16; 5 6 procedure Add (X, Y : aliased Sarray; R : aliased out Sarray); 7 8end Vect17; 9