diff options
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. */ |