blob: a0eff3dec5dbf583e56fab199cb357dcfd4400e7 [file] [log] [blame]
package Sin_Cos is
subtype T is Float;
procedure Sin_Cos (Angle : T; SinA, CosA : out T);
end Sin_Cos;