blob: 0c2b14a401d3f77b55a80c651ddd6cb504d7083a [file] [log] [blame]
-- { 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;