Re: unconstrained array type problems

[Ludovic Brenta <ludovic.brenta@insalien.org>]

"zork" writes:
> procedure Matrix is
>
>     type Matrix_Type is array ( Integer range <>, Integer range <> ) of
> Float;
>     ..
>     ..
> begin
>     ..
>     Get ( File, number_rows ); -- read the number of rows from file
>     Get ( File, number_columns ); -- read the number of columns from file
>     array1 : Matrix_Type ( 1 .. number_rows, 1 .. number_columns );
>     ..
> end Matrix;
> ------------------
>
> I cant seem to define my array1 in the begin / end block. This is a bit
> frustrating. How does one get around this? Is an unconstrained array the
> best choice?
>
> Any help most appreciated!

You can do it with a declare block:

begin
   Get (File, number_rows);
   Get (File, number_columns);
   declare
      array1: Matrix_Type (1 .. number_rows, 1 .. number_columns);
   begin
      -- process array1
   end;
end;

But if your processing is long, consider changing the declare block to
a subprogram, and passing number_columns and number_rows to it.

-- 
Ludovic Brenta.