Re: Arrays in Ada 2020

[Robert Eachus <rieachus@comcast.net>]

On Sunday, June 18, 2017 at 4:15:58 PM UTC-4, Simon Wright wrote:
> Robert Eachus <rieachus@comcast.net> writes:
> 
> >    function Unit_Matrix (Order           : Positive;
> >                          First_1, First_2 : Integer := 1)
> >                                             return Real_Matrix is
> >       Result: Real_Matrix(First_1..First_1+Order,
> >                      First_2..First_2+Order) := (others => 
> >                                                 (others => 0.0));
> >    begin
> >      for I in First_1..First_1+Order loop
> >         Result(I, I-First_1+First_2) := 1.0;
> >      end loop;
> >      return Result;
> >    end Unit_Matrix;
> 
> Isn't that 1 larger in each dimension than it should be?

Oops! Yes.