From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: Integer Overflow Question.
Date: Mon, 25 Aug 2014 18:21:43 +0100
Organization: A noiseless patient Spider
Message-ID: <lysikkiixk.fsf@pushface.org>
References: <9c5de333-276c-4e3a-be5a-4e5a98cdaa1d@googlegroups.com>
	<ltf7lp$844$1@dont-email.me>
	<440bf1f1-3e98-47ac-b0c0-f73f170a3603@googlegroups.com>
	<55b1078f-dc26-4ae0-ac9f-5af0bfd90992@googlegroups.com>
	<84ce2caf-0a48-4952-8703-af1c0fabe583@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: mx05.eternal-september.org;
 posting-host="5d00f091157bdcb07ac835b1b602fa8d";
	logging-data="30910"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX18xffjmJSMPEXdYURy6GRDe3ccVCHC1zww="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (darwin)
Cancel-Lock: sha1:ob1jNApDlp2FDbxU4a/sygZ08+U=
	sha1:NIos95NhLK2BsFOsZ4+Th9XQC7A=
Xref: news.eternal-september.org comp.lang.ada:21910
Date: 2014-08-25T18:21:43+01:00
List-Id: <comp.lang.ada>

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