-- --
------------------------------------------------------------------------------
+pragma Compiler_Unit;
+
with System; use System;
with System.Unsigned_Types; use System.Unsigned_Types;
procedure Raise_Error is
begin
- raise Constraint_Error with "unequal lengths in logical operation";
+ raise Constraint_Error;
end Raise_Error;
end System.Bit_Ops;