* trans.c (gnat_to_gnu) <N_Validate_Unchecked_Conversion>: Account

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / fixedpnt.adb

--  { 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;