2 -- { dg-options "-gnato -O" }
4 procedure Overflow_Fixed
is
6 type Unsigned_8_Bit
is mod 2**8;
8 procedure Fixed_To_Eight
(Value
: Duration) is
11 Item
:= Unsigned_8_Bit
(Value
);
14 when Constraint_Error
=> null; -- expected case
18 Fixed_To_Eight
(-0.5);