F : in out Int10;
procedure G;
begin
case F is
when 1..10 => null;
--Illegal!
end case;
end G;
procedure I is new G(F => X); --OK.
X: constant Boolean := (N = 0.0) or else (1.0/N > 0.5); --Static.
Mega : constant := Kilo*Kilo; -- 1_000_000
Long : constant := Float'Digits*2;
Deg_To_Rad : constant := Half_Pi/90;
Rad_To_Deg : constant := 1.0/Deg_To_Rad; -- equivalent to 1.0/((3.14159_26536/2)/90)
I : Short_Int := -32_768;