gcc/testsuite/gnat.dg/sin_cos.ads

package Sin_Cos is
   subtype T is Float;
   procedure Sin_Cos (Angle : T; SinA, CosA : out T);
end Sin_Cos;