Allocatable components to the right of a nonzero-rank part reference

[Brooks Moses]

Paul Thomas wrote:
> Erik,
>> Index: gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90
>> ===================================================================
>> --- gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90	(revision 118859)
>> +++ gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90	(working copy)
>> @@ -38,12 +38,6 @@
>>    if (any( (/(((y(k)%at(i)%i(j), j = 1,4), i = 1,2), k = 1,2)/) .ne. &
>>           (/0,0,2,1,11,12,6,5,11,12,3,2,9,8,7,6/))) call abort () 
>>  
>> -  where (y((2))%at(:)%i(2) > 8)
>> -    y(2)%at(:)%i(2) = 77
>> -  end where
>> -  if (any ((/(((y(k)%at(i)%i(j), j = 1,4), i = 1,2), k = 1,2)/) .ne. &
>> -         (/0,0,2,1,11,12,6,5,11,77,3,2,9,8,7,6/))) call abort ()
>>   
> That's a shame - I was really proud of that.

Is there a corresponding test in the legal case where i() is not an 
allocatable?  There probably should be one where at() is allocatable, 
but i() not, I would think.

- Brooks