blob: fa05dfe3a5509765c672d0bd9c490e13e51eb227 [file] [log] [blame]
package body Opt22_Pkg is
procedure Fail is
begin
raise Constraint_Error;
end;
procedure Put (S : String) is
begin
if S /= "the message" then
raise Program_Error;
end if;
end;
end Opt22_Pkg;