diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-16 09:55:20 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-16 09:55:20 +0000 |
| commit | 091bff861a4d44180f40d7230e69c94d72114568 (patch) | |
| tree | ea50806dad77b21251fdc8d39691178743df9fae /gcc/fortran | |
| parent | d860e1f980031b23f6ea1b9a3b44d8ca4420b185 (diff) | |
| download | gcc-091bff861a4d44180f40d7230e69c94d72114568.tar.gz | |
fortran/
2007-02-16 Tobias Burnus <burnus@net-b.de>
PR fortran/30793
* trans-decl.c (gfc_generate_function_code): Do not initialize
pointers to derived components.
testsuite/
2007-02-16 Tobias Burnus <burnus@net-b.de>
PR fortran/30793
* gfortran.dg/func_derived_4.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122037 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 796c8b9a06b..02ba34f881b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-02-16 Tobias Burnus <burnus@net-b.de> + + PR fortran/30793 + * trans-decl.c (gfc_generate_function_code): Do not initialize + pointers to derived components. + 2007-02-15 Sandra Loosemore <sandra@codesourcery.com> Brooks Moses <brooks.moses@codesourcery.com> Lee Millward <lee.millward@codesourcery.com> diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index d001ad9eba6..019fbd6bdc2 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -3240,7 +3240,8 @@ gfc_generate_function_code (gfc_namespace * ns) if (result != NULL_TREE && sym->attr.function && sym->ts.type == BT_DERIVED - && sym->ts.derived->attr.alloc_comp) + && sym->ts.derived->attr.alloc_comp + && !sym->attr.pointer) { rank = sym->as ? sym->as->rank : 0; tmp2 = gfc_nullify_alloc_comp (sym->ts.derived, result, rank); |