Re: Integer Overflow Question.

[Simon Wright <simon@pushface.org>]

austin.obyrne769@btinternet.com writes:

> Could you please set out the Ada-95 sourcecode for defining an integer
> variable called "CipherText" in the range say of 8 decimal digits to
> 12 decimal digits. I can do the others myself once I know what to do.

This may help:

with Ada.Text_IO;
procedure Obyrne is
   type Ciphertext_Integer is range -10 ** 12 .. 10 ** 12;
begin
   Ada.Text_IO.Put_Line
     ("first is " & Ciphertext_Integer'Image (Ciphertext_Integer'First)
        & ", last is " & Ciphertext_Integer'Image (Ciphertext_Integer'Last));
end Obyrne;

With up-to-date GNAT, this outputs

first is -1000000000000, last is  1000000000000