1-- { dg-do run } 2 3procedure Fixedpnt is 4 A : Duration := 1.0; 5 B : Duration := Duration ((-1.0) * A); 6begin 7 if B > 0.0 then 8 raise Constraint_Error; 9 end if; 10end; 11