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