[Bug fortran/41242] [4.5 Regression] PPC call rejected (related to user-defined assignment?)

[pault at gcc dot gnu dot org]

------- Comment #13 from pault at gcc dot gnu dot org  2009-09-10 18:16 -------

(In reply to comment #11)

> This seems to be because the 'resolve_code' call above resolves not only the
> assignment statement itself, but everything that comes after it. So in this
> case the PPC call is resolved four extra times!
> 

Janus,

I twigged that on the way home!  Never, never use resolve_code.... :-)

resolve_code already contains:
      t = SUCCESS;
      if (code->op != EXEC_COMPCALL && code->op != EXEC_CALL_PPC)
        t = gfc_resolve_expr (code->expr1);
      forall_flag = forall_save;

      if (gfc_resolve_expr (code->expr2) == FAILURE)
        t = FAILURE;

Therefore the lhs and rhs are already resolved and nothing more is needed. 

If trunk bootstraps and regtests, commit as "obvious".

Well spotted

Paul


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41242