5 lines
60 B
Ada
5 lines
60 B
Ada
|
procedure Raise_CE is
|
||
|
begin
|
||
|
raise Constraint_Error;
|
||
|
end;
|