http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57022
--- Comment #4 from janus at gcc dot gnu.org 2013-04-21 13:42:14 UTC ---
(In reply to comment #3)
> (In reply to comment #2)
> > +
> > + if (source->expr_type == EXPR_ARRAY || source->rank > 0)
> > + {
> > + if (!gfc_array_size (source, &tmp))
> should be "if (gfc_array_size (...))" (i.e. without '!') maybe?
oh yes, sure! Thanks for catching. That surely explains some of the funny ICEs
I'm seeing in the regtest.
But even when fixing it, there are a number of failures, e.g.:
FAIL: gfortran.dg/transfer_check_1.f90 -O (test for warnings, line 8)
FAIL: gfortran.dg/transfer_simplify_2.f90 -O0 (test for excess errors)
FAIL: gfortran.dg/transfer_simplify_4.f90 -O0 (test for excess errors)
FAIL: gfortran.dg/transfer_simplify_9.f90 -O0 execution test
