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=2.1 required=5.0 tests=BAYES_50,FREEMAIL_FROM,
	HELO_NO_DOMAIN,MAILING_LIST_MULTI,RDNS_NONE,REPLYTO_WITHOUT_TO_CC,
	SPOOFED_FREEMAIL_NO_RDNS autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,71c41b6f4d72158c
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-07-14 13:23:03 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!isdnet!enst!enst.fr!not-for-mail
From: "Gautier direct_replies_not_read" <gautier_niouzes@hotmail.com>
Newsgroups: comp.lang.ada
Subject: Re: if X in 1..35000 versus Boolean
Date: Sun, 14 Jul 2002 20:22:26 +0000
Organization: ENST, France
Sender: comp.lang.ada-admin@ada.eu.org
Message-ID: <mailman.1026678182.13475.comp.lang.ada@ada.eu.org>
Reply-To: comp.lang.ada@ada.eu.org
NNTP-Posting-Host: marvin.enst.fr
Mime-Version: 1.0
Content-Type: text/plain; format=flowed
X-Trace: avanie.enst.fr 1026678182 64679 137.194.161.2 (14 Jul 2002 20:23:02
 GMT)
X-Complaints-To: usenet@enst.fr
NNTP-Posting-Date: Sun, 14 Jul 2002 20:23:02 +0000 (UTC)
Return-Path: <gautier_niouzes@hotmail.com>
X-Originating-IP: [217.162.106.209]
X-OriginalArrivalTime: 14 Jul 2002 20:22:26.0576 (UTC)
 FILETIME=[2B7F5100:01C22B74]
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:comp.lang.ada-request@ada.eu.org?subject=help>
List-Post: <mailto:comp.lang.ada@ada.eu.org>
List-Subscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=subscribe>
List-Id: comp.lang.ada mail<->news gateway <comp.lang.ada.ada.eu.org>
List-Unsubscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=unsubscribe>
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
Xref: archiver1.google.com comp.lang.ada:27089
Date: 2002-07-14T20:22:26+00:00

Jan Prazak:

> >> type num : (1, 2, 3, 4);

>Maybe it's not the right syntax in Ada, because I haven't tested it,
>but this would work in Pascal and it should be quite similar in Ada
>(I am still reading my first Ada tutorial).

Did you test your Pascal assumptions ?...
At least I get under Turbo Pascal 6 and Delphi 6, for

program test; type t1234 = (1,2,3,4); begin end.
                            ^
Identifier expected.
____________________________________________________________
Gautier  --  http://www.mysunrise.ch/users/gdm/index.htm#Ada

NB: For a direct answer, address on the Web site!

_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com