gcc/testsuite/gnat.dg/unroll4.ads

   1 with Unroll4_Pkg; use Unroll4_Pkg;
   2
   3 package Unroll4 is
   4
   5    type Sarray is array (1 .. N) of Float;
   6
   7    function "+" (X, Y : Sarray) return Sarray;
   8    procedure Add (X, Y : Sarray; R : out Sarray);
   9
  10 end Unroll4;