diff options
| author | eedelman <eedelman@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-06 23:12:41 +0000 |
|---|---|---|
| committer | eedelman <eedelman@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-06 23:12:41 +0000 |
| commit | ab19f98235f24d6426a5fb5d00f967b8ef5d6131 (patch) | |
| tree | 14bd2a8f3c2db1490455660b4df051b8316fdbb4 /gcc/fortran/trans-array.h | |
| parent | adb96bd831294740a135d33bc981d6d4db90dc7b (diff) | |
| download | gcc-ab19f98235f24d6426a5fb5d00f967b8ef5d6131.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111795 138bc75d-0d04-0410-961f-82ee72b054a4
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 8038f40e9d0..fed1bf0a487 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. */ |