2016 Update
This commit is contained in:
parent
948b86eafa
commit
dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
|
|
@ -4,6 +4,6 @@ procedure Integers is
|
|||
begin
|
||||
loop
|
||||
Ada.Text_IO.Put_Line (Integer'Image (Value));
|
||||
Value := Value + 1;
|
||||
Value := Value + 1; -- raises exception Constraint_Error on overflow
|
||||
end loop;
|
||||
end Integers;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue