diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2006-03-06 23:12:41 +0000 |
|---|---|---|
| committer | Erik Edelmann <eedelman@gcc.gnu.org> | 2006-03-06 23:12:41 +0000 |
| commit | 42a0e16c2dcda2e87a3291ca4aa9cf944fee8f5a (patch) | |
| tree | 14bd2a8f3c2db1490455660b4df051b8316fdbb4 /gcc/fortran/trans-expr.c | |
| parent | c09a1bf1a26983051a572cf9d7e8bd9164e4588b (diff) | |
| download | gcc-42a0e16c2dcda2e87a3291ca4aa9cf944fee8f5a.zip gcc-42a0e16c2dcda2e87a3291ca4aa9cf944fee8f5a.tar.gz gcc-42a0e16c2dcda2e87a3291ca4aa9cf944fee8f5a.tar.bz2 | |
trans-array.c (gfc_trans_dealloc_allocated): New function.
fortran/
2005-03-06 Paul Thomas <pault@gcc.gnu.org>
Erik Edelmann <eedelman@gcc.gnu.org>
* trans-array.c (gfc_trans_dealloc_allocated): New function.
(gfc_trans_deferred_array): Use it, instead of inline code.
* trans-array.h: Prototype for gfc_trans_dealloc_allocated().
* trans-expr.c (gfc_conv_function_call): Deallocate allocated
ALLOCATABLE, INTENT(OUT) arguments upon procedure entry.
testsuite/
2005-03-06 Paul Thomas <pault@gcc.gnu.org>
Erik Edelmann <eedelman@gcc.gnu.org>
* gfortran.dg/allocatable_dummy_1.f90: Take into account that
INTENT(OUT) arguments shall be deallocated upon procedure entry.
Co-Authored-By: Erik Edelmann <eedelman@gcc.gnu.org>
From-SVN: r111795
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 4be5459..8c63b11 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -1914,6 +1914,16 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, gfc_conv_aliased_arg (&parmse, arg->expr, f); else gfc_conv_array_parameter (&parmse, arg->expr, argss, f); + + /* If an ALLOCATABLE dummy argument has INTENT(OUT) and is + allocated on entry, it must be deallocated. */ + if (formal && formal->sym->attr.allocatable + && formal->sym->attr.intent == INTENT_OUT) + { + tmp = gfc_trans_dealloc_allocated (arg->expr->symtree->n.sym); + gfc_add_expr_to_block (&se->pre, tmp); + } + } } |