Re: Why this program does not compile? (iterators)

["Randy Brukardt" <randy@rrsoftware.com>]

Looks OK to me, probably a compiler bug of some sort. - Randy.

"Victor Porton" <porton@narod.ru> wrote in message 
news:lt7u1i$6bn$1@speranza.aioe.org...
> Why this program does not compile?
>
> gnatgcc -c -g -O2 -gnat2012 -g -O0 -gnato -fstack-check -gnatVa 
> special_test.adb
> <built-in>: In function 'Special_Test':
> <built-in>: error: aggregate value used where an integer was expected
>
> with Ada.Iterator_Interfaces;
>
> procedure Special_Test is
>
>   type My_Description_Cursor is null record;
>
>   function Has_Element (Position: My_Description_Cursor) return Boolean is 
> (False);
>
>   package My_Description_Iterators is new 
> Ada.Iterator_Interfaces(My_Description_Cursor, Has_Element);
>
>   type My_Description_Iterator is new 
> My_Description_Iterators.Forward_Iterator with null record;
>
>   overriding function First (Object: My_Description_Iterator) return 
> My_Description_Cursor is (null record);
>   overriding function Next (Object: My_Description_Iterator; Position: 
> My_Description_Cursor) return My_Description_Cursor is (null record);
>
>   My_Iterator: My_Description_Iterator;
>
> begin
>   for C in My_Iterator loop
>      null;
>   end loop;
> end;
>
>
> -- 
> Victor Porton - http://portonvictor.org