------- Comment #9 from pault at gcc dot gnu dot org 2009-04-26 19:22 -------
(In reply to comment #8)
> I have an "obvious" (ie. after three hours staring at it:-( ) fix that is
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 146772)
+++ gcc/fortran/resolve.c (working copy)
@@ -6645,7 +6645,8 @@
if (rhs->expr_type == EXPR_VARIABLE
&& rhs->symtree->n.sym->ts.type == BT_DERIVED
&& has_default_initializer (rhs->symtree->n.sym->ts.derived)
- && (lhs->symtree->n.sym == rhs->symtree->n.sym))
+ && (lhs->symtree->n.sym == rhs->symtree->n.sym)
+ && !(rhs->ref || lhs->ref))
code->ext.actual->next->expr = gfc_get_parentheses (rhs);
return true;
which regtests OK but I need a day or so to dwell on. Although the above is my
doing, I do not recall for the life of me why a temporary had to be added in
this case. I will attempt to recall that and figure out exactly which cases
are counter-indicated.
By the way, David, thanks for the report!
Paul
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39879
