[Bug fortran/32880] User operator & allocatable TYPE components: wrong deallocate

["pault at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>]

------- Comment #3 from pault at gcc dot gnu dot org  2007-07-25 05:20 -------
Another sub-pr: putting the res on the rhs in parentheses does not work either.
 This can be fixed by...

$ svn diff -x -cp gcc/fortran/trans-expr.c
Index: gcc/fortran/trans-expr.c
===================================================================
*** gcc/fortran/trans-expr.c    (revision 126885)
--- gcc/fortran/trans-expr.c    (working copy)
*************** gfc_conv_variable (gfc_se * se, gfc_expr
*** 472,477 ****
--- 472,482 ----
                  || sym->attr.result))
            se->expr = build_fold_indirect_ref (se->expr);

+         /* A character with VALUE attribute needs an address
+            expression.  */
+         if (sym->attr.value)
+           se->expr = build_fold_addr_expr (se->expr);
+
        }
        else if (!sym->attr.value)
        {
*************** gfc_conv_expr_op (gfc_se * se, gfc_expr
*** 1044,1049 ****
--- 1049,1064 ----
      case INTRINSIC_UPLUS:
      case INTRINSIC_PARENTHESES:
        gfc_conv_expr (se, expr->value.op.op1);
+
+       if (expr->value.op.op1->ts.type == BT_DERIVED
+           && expr->value.op.op1->ts.derived->attr.alloc_comp)
+       {
+         tmp = gfc_evaluate_now (se->expr, &se->pre);
+         type = gfc_copy_alloc_comp (expr->value.op.op1->ts.derived, se->expr,
tmp, 0);
+         se->expr = tmp;
+         gfc_add_expr_to_block (&se->pre, type);
+       }
+
        return;

leading to a dependency check which puts res in parentheses for the primary
problem.

Paul


-- 


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