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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.107.8.90 with SMTP id 87mr4819523ioi.107.1505566154582;
        Sat, 16 Sep 2017 05:49:14 -0700 (PDT)
X-Received: by 10.36.17.11 with SMTP id 11mr306063itf.3.1505566154561; Sat, 16
 Sep 2017 05:49:14 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!border1.nntp.ams1.giganews.com!nntp.giganews.com!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!o200no1119811itg.0!news-out.google.com!p6ni3151itp.0!nntp.google.com!127no1119586itw.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 16 Sep 2017 05:49:14 -0700 (PDT)
In-Reply-To: <oov33f$1g8u$1@gioia.aioe.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=83.255.112.230;
 posting-account=NT38RwoAAAB4_OO_uw8yHtNaa9Hkjukk
NNTP-Posting-Host: 83.255.112.230
References: <oludae$seh$1@franka.jacob-sparre.dk>
 <4dc188de-802b-41ad-9cdd-b8246eb9a1c7@googlegroups.com>
 <47cc6474-8b75-4644-92d0-bd1f694c20e7@googlegroups.com>
 <338b355a-dee4-4c73-b00e-09d9a8430fb1@googlegroups.com>
 <ooflve$ukd$1@franka.jacob-sparre.dk>
 <e9e2556d-9b23-4e7f-9058-776dd506f73c@googlegroups.com>
 <ooposs$5o1$1@franka.jacob-sparre.dk>
 <21692daf-5a52-43f0-a72a-d79e6a7dcc9f@googlegroups.com>
 <oov33f$1g8u$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <04de2261-7aa4-410c-bacc-78cce7d529e3@googlegroups.com>
Subject: Re: Community Input for the Maintenance and Revision of the Ada
 Programming Language
From: =?UTF-8?B?Sm9oYW4gU8O2ZGVybGluZCDDhXN0csO2bQ==?= <johaa1993@gmail.com>
Injection-Date: Sat, 16 Sep 2017 12:49:14 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Body-CRC: 1284360273
X-Received-Bytes: 2060
Xref: news.eternal-september.org comp.lang.ada:48144
Date: 2017-09-16T05:49:14-07:00
List-Id: <comp.lang.ada>

> Ordinal numbers can be used for indexing using S'Val () attribute where 
> S is the array index subtype. It is extremely ugly but useful when the 
> array index type is not numeric.

Tested this now and it does not work on ranged types.

    subtype T is Integer range 5 .. 6;
    Put (T'Val (1)); -- prints 1

    type R is (R1, R2, R3);
    Put (R'Val (1)'Image); -- prints R2