blob: 2e9988c33bbec4ea45c4eb6878410279326533a9 [file] [log] [blame]
-- { dg-do run }
procedure Fixedpnt is
A : Duration := 1.0;
B : Duration := Duration ((-1.0) * A);
begin
if B > 0.0 then
raise Constraint_Error;
end if;
end;