Re: The answer to "Can Ada replace FORTRAN for numerical computation?

["Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>]

On 8/16/19 9:11 PM, Norman Worth wrote:
> 
> with ada.text_io; use ada.text_io;
> procedure ar is
>     type a is array(integer range <>) of integer;
>     type ap is access a;
>     P : ap;
>     procedure da (i : in integer; j : in integer; p : out ap) is
>        begin
>        p := new a(1..i);
>        p.all := (others => j);
>        end;
>     begin
>     da (4, 10, P);
>     put_line (P(4)'image);
>     da (10, 4, P);
>     put_line (P(10)'image);
>     end;
> 
> (Note that since Ada does not have a "free" verb, memory management is a bit 
> more complicated, requiring "uncontrolled deallocation", which is type 
> sensitive, to explicitly deallocate the memory for each instance of P.  But Ada 
> will take care of deallocation nicely when P goes out of scope at the end of the 
> procedure.)

Like 99.9% of all problems, we can do the same thing without writing "access" or 
using Unchecked_Deallocation. Clearer and safer.

-- 
Jeff Carter
"Crucifixion's a doddle."
Monty Python's Life of Brian
82