blob: 1fc5cef0a75fff3588393e662b8cf0c8d42c459a [file] [log] [blame]
-- { dg-do compile }
procedure Fixedpnt8 is
Ct_A : constant := 0.000_000_100;
Ct_B : constant := 0.000_000_025;
Ct_C : constant := 1_000;
type Number_Type is range 0 .. Ct_C;
subtype Index_Type is Number_Type range 1 .. Number_Type'Last;
type Kind_Enumerated_Type is
(A1,
A2);
Kind : Kind_Enumerated_Type := A1;
V : Duration := 10.0;
Last : constant Index_Type :=
Index_Type (V / (case Kind is -- { dg-warning "universal_fixed expression interpreted as type \"Standard.Duration\"" }
when A1 => Ct_B,
when A2 => Ct_A));
begin
null;
end Fixedpnt8;