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