gcc/testsuite/gnat.dg/vect16.ads


1
2
3
4
5
6
7
8

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;