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
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.unit0.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: =?UTF-8?Q?Karl_M=c3=bcller?= <mtb23@gmx.de>
Newsgroups: comp.lang.ada
Subject: Re: Problem with Position of the enumeration Type
Date: Wed, 23 Jan 2019 13:15:29 +0100
Message-ID: <gar471Fgn2aU1@mid.individual.net>
References: <3d782720-227d-4d86-b403-eacbd1b9d0d2@googlegroups.com>
 <72fd7f46-21bb-45b9-9621-237bca776378@googlegroups.com>
 <217206e7-81aa-4aa8-8d19-66498c36100d@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: individual.net qhkIpxFBCTa0vACLpBIvVQtCelJPfMzMPGU24++2kFy1AqRVYo
Cancel-Lock: sha1:vewXpwaa6iEyoiv8QmVnNMXIlv8=
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101
 Thunderbird/60.4.0
In-Reply-To: <217206e7-81aa-4aa8-8d19-66498c36100d@googlegroups.com>
Content-Language: en-US
Xref: reader01.eternal-september.org comp.lang.ada:55336
Date: 2019-01-23T13:15:29+01:00
List-Id: <comp.lang.ada>

For GNAT the Attribute 'Enum_Rep could be helpful:

  ada.Text_IO.Put
  (" Position: " & Position'Img & " Value: " & I'Enum_Rep'Img);

Result:

Position:  0 Value:  10 Position:  1 Value:  11 Position:  2 Value:  12 
Position:  3 Value:  13 Position:  4 Value:  14

Regards
Karl