http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31067
Jakub Jelinek <jakub at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Attachment #24856|0 |1
is obsolete| |
--- Comment #44 from Jakub Jelinek <jakub at gcc dot gnu.org> 2011-07-28
16:00:54 UTC ---
Created attachment 24858
--> http://gcc.gnu.org/bugzilla/attachment.cgi?id=24858
gcc47-pr31067.patch
Based on IRC discussions, this patch instead replaces
MINLOC (rank1)
with
/( MINLOC (rank1, DIM=1) )/
so that it should work even with allocatable LHS that should be reallocated on
assignment etc. As an bonus, even e.g.
if (any (minloc (rank1).ne.6))
etc. can be optimized. So far tested just with dg.exp=m*.f90
