diff options
| author | Erik Edelmann <eedelman@gcc.gnu.org> | 2006-03-09 21:46:14 +0000 |
|---|---|---|
| committer | Erik Edelmann <eedelman@gcc.gnu.org> | 2006-03-09 21:46:14 +0000 |
| commit | 17029ac2c3a874073805f11941a7b5f888923d3a (patch) | |
| tree | a7ae8c2256c3a5368277e817602f6d8d58322f71 /gcc/fortran | |
| parent | a8c1d5f80e0b710089f7e5f6265bdc345c7b514f (diff) | |
| download | gcc-17029ac2c3a874073805f11941a7b5f888923d3a.zip gcc-17029ac2c3a874073805f11941a7b5f888923d3a.tar.gz gcc-17029ac2c3a874073805f11941a7b5f888923d3a.tar.bz2 | |
trans-expr.c (gfc_add_interface_mapping): Copy 'allocatable' attribute from sym to new_sym.
fortran/
2006-03-09 Erik Edelmann <eedelman@gcc.gnu.org>
* trans-expr.c (gfc_add_interface_mapping): Copy 'allocatable'
attribute from sym to new_sym. Call build_fold_indirect_ref()
for allocatable arguments.
testsuite/
2006-03-09 Erik Edelmann <eedelman@gcc.gnu.org>
* gfortran.dg/allocatable_dummy_1.f90: Test for functions returning
arrays too.
From-SVN: r111910
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dc1cdea..2e3d0f2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-03-09 Erik Edelmann <eedelman@gcc.gnu.org> + + * trans-expr.c (gfc_add_interface_mapping): Copy 'allocatable' + attribute from sym to new_sym. Call build_fold_indirect_ref() + for allocatable arguments. + 2006-03-09 Paul Thomas <pault@gcc.gnu.org> PR fortran/26257 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 8c63b11..d1570a7 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -1316,6 +1316,7 @@ gfc_add_interface_mapping (gfc_interface_mapping * mapping, new_sym->attr.referenced = 1; new_sym->attr.dimension = sym->attr.dimension; new_sym->attr.pointer = sym->attr.pointer; + new_sym->attr.allocatable = sym->attr.allocatable; new_sym->attr.flavor = sym->attr.flavor; /* Create a fake symtree for it. */ @@ -1367,8 +1368,9 @@ gfc_add_interface_mapping (gfc_interface_mapping * mapping, value = build_fold_indirect_ref (value); } - /* If the argument is a scalar or a pointer to an array, dereference it. */ - else if (!sym->attr.dimension || sym->attr.pointer) + /* If the argument is a scalar, a pointer to an array or an allocatable, + dereference it. */ + else if (!sym->attr.dimension || sym->attr.pointer || sym->attr.allocatable) value = build_fold_indirect_ref (se->expr); /* For character(*), use the actual argument's descriptor. */ |