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

[erik.edelmann@iki.fi]

On Sat, Nov 18, 2006 at 04:25:23PM +0100, Paul Thomas wrote:
> >--- 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.

I can imagine that. And that is actually why I asked -- I felt it was a
pity to kill something that worked.


        Erik