PR testsuite/86649

[official-gcc.git] / gcc / testsuite / gnat.dg / unroll3.ads

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;