[patch, fortran] byte-wise access to masks

[Brooks Moses]

Brooks Moses wrote:
> Thomas Koenig wrote:
>> Regression-tested on i686-pc-linux-gnu.  This absolutely needs
>> to be tested on a big-endian system before committing.  OK
>> once this has been done?
> 
> Here are the key results from "make check-fortran" on 
> powerpc-apple-darwin8.  The edit_real_1 and large_real_kind* failures 
> are known ones on that platform.  The zero_sized_1 failure, however, 
> appears to be due to your patch; I tried again with your patch reverted, 
> and it goes away.

Specifically, the following reduced testcase gives a "Bus error" on 
execution with your patch, but works fine without it:

program test
   integer :: tempn(1,5)
   tempn = 2
   if (size(pack(tempn(:,-4:-5),tempn(:,-4:-5)/=0, &
     (/1,3,4,5,1,0,7,9/))) /= 8) &
     call abort
end

- Brooks