Re: SPARK internal error?

["G.B." <bauhaus@futureapps.invalid>]

On 03.03.15 10:54, Maciej Sobczak wrote:
>      procedure Sort (A : in out My_Array) is
>      begin
>          for I in A'Range loop
>              Min_To_Left (A (I .. A'Last));
>
>              pragma Loop_Invariant
>                  (for all J in I .. A'Last =>
>                          A (I) <= A (J));
>          end loop;
>      end Sort;

The following passes and makes gnatprove produce
warning addressing range/pre/post/loop_invariant:

     procedure Sort (A : in out My_Array) is
     begin
         for I in A'Range loop
             declare
                 X : My_Array (I .. A'Last) := (others => 0);
             begin
                 for K in I .. A'Last loop
                     X (K) := A (K);
                 end loop;
                 Min_To_Left (X);
                 for K in I .. A'Last loop
                     A (K) := X (K);
                 end loop;
             end;

             pragma Loop_Invariant
                 ((for all J in I .. A'Last =>
                         A (I) <= A (J)));
         end loop;
     end Sort;