This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Allocatable components to the right of a nonzero-rank part reference
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