gcc/testsuite/gnat.dg/aspect1_horizontal.ads

   1 with Aspect1_Vectors_2D;
   2
   3 generic
   4    with package Position_2d_Pkg is new Aspect1_Vectors_2D (<>);
   5    with package Speed_2d_Pkg is new Aspect1_Vectors_2D (<>);
   6 package Aspect1_Horizontal is
   7    function Theta_D(s: Position_2d_Pkg.Vect2; nzv: Speed_2d_Pkg.Nz_vect2)
   8       return float;
   9 end Aspect1_Horizontal;