summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/sin_cos.ads
blob: a0eff3dec5dbf583e56fab199cb357dcfd4400e7 (plain)
1
2
3
4
package Sin_Cos is
   subtype T is Float;
   procedure Sin_Cos (Angle : T; SinA, CosA : out T);
end Sin_Cos;