diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2005-11-30 17:26:40 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2005-11-30 17:26:40 +0000 |
| commit | 99c7ab426c16387fb2a27681f54b0ca4ff853b69 (patch) | |
| tree | 4cab46bed130eb0f0b7437bac89bbc2298702409 /gcc/fortran/trans-decl.c | |
| parent | e541c31f4ca60209f17d3b44d365cfee4659b899 (diff) | |
| download | gcc-99c7ab426c16387fb2a27681f54b0ca4ff853b69.zip gcc-99c7ab426c16387fb2a27681f54b0ca4ff853b69.tar.gz gcc-99c7ab426c16387fb2a27681f54b0ca4ff853b69.tar.bz2 | |
[multiple changes]
2005-11-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/15809
* trans-decl.c (gfc_get_symbol_decl): In the case of automatic
character length, dummy pointer arrays, build an expression for
unit size of the array elements, to be picked up and used in the
descriptor dtype.
* trans-io.c (gfc_trans_transfer): Modify the detection of
components of derived type arrays to use the gfc_expr references
instead of the array descriptor dtype. This allows the latter
to contain expressions.
2005-11-30 Erik Edelmann <erik.edelmann@iki.fi>
PR fortran/15809
* trans-array.c (gfc_trans_deferred_array): Allow PARM_DECLs past
in addition to VAR_DECLs.
2005-11-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/15809
* gfortran.dg/auto_char_dummy_array.f90: New test.
From-SVN: r107727
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 37e9db8..63320ae 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -809,7 +809,9 @@ tree gfc_get_symbol_decl (gfc_symbol * sym) { tree decl; + tree etype = NULL_TREE; tree length = NULL_TREE; + tree tmp = NULL_TREE; int byref; gcc_assert (sym->attr.referenced); @@ -845,6 +847,22 @@ gfc_get_symbol_decl (gfc_symbol * sym) if (TREE_CODE (length) != INTEGER_CST) { gfc_finish_var_decl (length, sym); + + /* Set the element size of automatic character length + length, dummy, pointer arrays. */ + if (sym->attr.pointer && sym->attr.dummy + && sym->attr.dimension) + { + tmp = gfc_build_indirect_ref (sym->backend_decl); + etype = gfc_get_element_type (TREE_TYPE (tmp)); + if (TYPE_SIZE_UNIT (etype) == NULL_TREE) + { + tmp = TYPE_SIZE_UNIT (gfc_character1_type_node); + tmp = fold_convert (TREE_TYPE (tmp), length); + TYPE_SIZE_UNIT (etype) = tmp; + } + } + gfc_defer_symbol_init (sym); } } |