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!mx02.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: A few questions
Date: Thu, 05 Nov 2015 08:52:53 +0000
Organization: A noiseless patient Spider
Message-ID: <lyziyskeu2.fsf@pushface.org>
References: <f487cd6f-f4f0-437e-9077-0495d17156f3@googlegroups.com>
	<ly611kmh1g.fsf@pushface.org> <n19kt6$h09$1@loke.gir.dk>
	<lysi4nlbwe.fsf@pushface.org> <lybnb9lote.fsf@pushface.org>
	<n1eatb$8r4$1@loke.gir.dk> <ly7flwltra.fsf@pushface.org>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: mx02.eternal-september.org;
 posting-host="2d7699570724a9a82a760842267e2c56";
	logging-data="27807"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX18mhdm5YhupN+kxmjX+hG85NK6j7ZpgQ+0="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (darwin)
Cancel-Lock: sha1:PnQMjC/Y+tz+b+K7dUhl+iuvwwI=
	sha1:lC+1bEs0Rcf+IKie3Se+CVE8f2M=
Xref: news.eternal-september.org comp.lang.ada:28221
Date: 2015-11-05T08:52:53+00:00
List-Id: <comp.lang.ada>

Simon Wright <simon@pushface.org> writes:

> "Randy Brukardt" <randy@rrsoftware.com> writes:
>
>> Prime_Number_Set is (directly) an iterator, so you use "in" to iterate
>> over it:
>>
>>  for P in F552A00_Prime_Numbers.Prime_Number_Set'(Max_Value => 31) loop
>>
>> The "of" form is for iterating over an array or a container whose type
>> has the Default_Iterator aspect (which gives the iterator to use).
>>
>> I can hear the head slap from here. ;-)
>
> Yes, but;
>
>      1. with Ada.Text_IO;
>      2. with F552A00_Prime_Numbers;
>      3. procedure Primes is
>      4. begin
>      5.    for P in F552A00_Prime_Numbers.Prime_Number_Set'(Max_Value => 31) loop
>                                                           |
>         >>> expected a discrete type
>         >>> found type "Prime_Number_Set" defined at
>         >>> f552a00_prime_numbers.ads:74
>
>      6.       Ada.Text_IO.Put_Line (P'Img);
>      7.    end loop;
>      8. end Primes;
>
> Perhaps this is the GNAT problem you spoke of? (FSF GCC 5.1.0, GNAT GPL 2015)

Oh, it should have been

   for P in F552A00_Prime_Numbers.Prime_Number_Set'(Max_Value => 31).Iterate
      loop