17 lines
399 B
Ada
17 lines
399 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-gnatws" }
|
|
|
|
procedure Fixedpnt3 is
|
|
C_Unit : constant := 0.001;
|
|
|
|
type T_Fixed_Point is
|
|
delta C_Unit range (-2 ** 63) * C_Unit .. (2 ** 63 - 1) * C_Unit
|
|
with Size => 64, Small => C_Unit;
|
|
|
|
type T_Short_Fixed_Point is
|
|
new T_Fixed_Point range (-2 ** 31) * C_Unit .. (2 ** 31 - 1) * C_Unit
|
|
with Size => 32;
|
|
begin
|
|
null;
|
|
end Fixedpnt3;
|