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-array.h | |
| 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-array.h')
| -rw-r--r-- | gcc/fortran/trans-array.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h index 8038f40..fed1bf0 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -42,6 +42,8 @@ tree gfc_trans_auto_array_allocation (tree, gfc_symbol *, tree); tree gfc_trans_dummy_array_bias (gfc_symbol *, tree, tree); /* Generate entry and exit code for g77 calling convention arrays. */ tree gfc_trans_g77_array (gfc_symbol *, tree); +/* Generate code to deallocate the symbol 'sym', if it is allocated. */ +tree gfc_trans_dealloc_allocated (gfc_symbol * sym); /* Add initialization for deferred arrays. */ tree gfc_trans_deferred_array (gfc_symbol *, tree); /* Generate an initializer for a static pointer or allocatable array. */ |