* trans-array.c (gfc_deallocate_scalar_with_status): Use
NULL_TREE in the call to gfc_deallocate_scalar_with_status.
* trans-decl.c (gfc_trans_deferred_vars): Pass symbol.
* trans-stmt.c (gfc_trans_deallocate): Pass polymorphic
* variable.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194332
138bc75d-0d04-0410-961f-
82ee72b054a4
+2012-12-09 Tobias Burnus <burnus@net-b.de>
+
+ * trans-array.c (gfc_deallocate_scalar_with_status): Use
+ NULL_TREE in the call to gfc_deallocate_scalar_with_status.
+ * trans-decl.c (gfc_trans_deferred_vars): Pass symbol.
+ * trans-stmt.c (gfc_trans_deallocate): Pass polymorphic variable.
+
2012-12-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/55593
- * gfortran.dg/do_check_8.f90: New test.
+ * frontend-passes.c (doloop_code): Use resolved_sym
+ instead of n.sym->formal for formal argument list
+ to get the correct version for all generic subroutines.
2012-12-05 Tobias Burnus <burnus@net-b.de>
CLASS_DATA (c)->attr.codimension);
else
{
- tmp = gfc_deallocate_scalar_with_status (comp, NULL, true, NULL,
+ tmp = gfc_deallocate_scalar_with_status (comp, NULL_TREE, true, NULL,
CLASS_DATA (c)->ts);
gfc_add_expr_to_block (&tmpblock, tmp);
called_dealloc_with_status = true;
NULL_TREE, true, NULL,
true);
else
- tmp = gfc_deallocate_scalar_with_status (se.expr, NULL,
- true, NULL,
- sym->ts);
+ tmp = gfc_deallocate_scalar_with_status (se.expr, NULL_TREE,
+ true,
+ gfc_lval_expr_from_sym (sym),
+ sym->ts);
}
if (sym->ts.type == BT_CLASS)
{
else
{
tmp = gfc_deallocate_scalar_with_status (se.expr, pstat, false,
- expr, expr->ts);
+ al->expr, al->expr->ts);
gfc_add_expr_to_block (&se.pre, tmp);
/* Set to zero after deallocation. */