From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?Q?Bj=c3=b6rn_Lundin?= <b.f.lundin@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Passing a 2d array into a package and returning the same
 processed 2d back to main
Date: Mon, 3 Oct 2016 21:43:58 +0200
Organization: A noiseless patient Spider
Message-ID: <nsucdi$rv3$1@dont-email.me>
References: <44638b2d-c7fb-4113-9262-d57dd1cd5629@googlegroups.com>
 <241a25d0-e840-4d2f-b39f-e5bcdf9a6209@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Injection-Date: Mon, 3 Oct 2016 19:43:47 -0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="63b071de032425bf651f0c9f58ac603c";
	logging-data="28643"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+Krs0JklZ4mshJqrEtBp8W"
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101
 Icedove/45.2.0
In-Reply-To: <241a25d0-e840-4d2f-b39f-e5bcdf9a6209@googlegroups.com>
Cancel-Lock: sha1:AsTsCVKbVUCa6Y+z0k+sXrN19aM=
Xref: news.eternal-september.org comp.lang.ada:31980
Date: 2016-10-03T21:43:58+02:00
List-Id: <comp.lang.ada>

On 2016-10-03 20:36, James Brewer wrote:
> On Friday, September 30, 2016 at 5:28:01 PM UTC-5, dia...@gmail.com wrote:
>> Hello again, new Ada programmer with a hopefully easy question. 
>> I am trying to take a 2d array pass it to a package have the package change the data in the 2d array and send the same 2d array (with modified data) back to the main program. I am currently away from my computer or I would show you my broken code, though I doubt it would be useful. 
>>
>> Thanks
> 
> 
> PACKAGE BODY WarshallsPkg IS
>    
>    PROCEDURE WarshallExecute(InArray : IN MY_ARRAY; OutArray : OUT MY_ARRAY) IS
> 
> --   TestArray: ARRAY(InArray'FIRST..InArray'LAST) OF Integer;
> 
>    BEGIN
>    FOR I IN InArray'FIRST..InArray'LAST LOOP
>       FOR J IN InArray'FIRST..InArray'LAST LOOP
>          IF InArray(J,I) = True THEN --true nodes connected
>             FOR K IN InArray'FIRST..InArray'LAST LOOP
>                OutArray(J,K) := InArray(J,K) OR InArray(I,K);
>             END LOOP;
>          END IF;
>       END LOOP;
>    END LOOP;
> 
>    END WarshallExecute;
>    
> END WarshallsPkg;
> 

try

package body WarshallsPkg is
   procedure WarshallExecute(Arr : in out My_Array) is
   begin
   for I in Arr'range loop
      for J in Arr'range loop
         if Arr(J,I) then --true nodes connected
            for k in Arr'range loop
               Arr(J,K) := Arr(J,K) or Arr(I,K);
            end loop;
         end if;
      end loop;
   end loop;
 end WarshallExecute;
end WarshallsPkg;


and then



>   WarshallExecute(Array2d, Array2d);

WarshallsPkg.WarshallExecute(Array2d);


You pass the same array both as in and out to WarshallExecute.
Why not pass it as in out ?




-- 
--
Björn