Re: Is this an error in compiler

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

On 2022-09-11 15:30, Jeffrey R.Carter wrote:
> On 2022-09-11 10:10, Simon Wright wrote:
>>
>> I have to say these conditional constructs strike me as regrettable
>> Perl-isms, and reduce clarity:
>>
>>     return foo when blah;
>>     raise baz when quux;
> 
> I presume you never use
> 
> exit Name when Condition;
> 
> since it must reduce clarity as well.
> 
> I suggested these constructs for Ada 9X. They were rejected because you 
> could get the same functionality with an if statement, and the ARG had 
> more important things to spend their time on. I guess the ARG's workload 
> must have decreased.


I don't find these "raise .. when" or "return .. when" constructs in the 
Ada 2022 RM draft, so I don't think the ARG has adopted them (yet). I 
suspect they are GNAT extensions, as is the ability to make a subtype of 
String with a fixed lower index bound of 1 but an unconstrained upper 
bound (1 .. <>), as also done in the OP's code.

I would not use these non-standard GNAT extensions, as long as GNAT is 
not the only Ada compiler in the world, which it fortunately isn't.