diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 355ed14..db563e9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/45889 + * resolve.c (resolve_transfer): Use expression inside parenthesis to + find acutal component to be transgferred. + 2010-10-06 Mikael Morin <mikael@gcc.gnu.org> * trans-stmt.c (gfc_trans_allocate): free lhs expr. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 59f1853..526e6df 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -7939,7 +7939,7 @@ resolve_transfer (gfc_code *code) ts = &sym->ts; /* Go to actual component transferred. */ - for (ref = code->expr1->ref; ref; ref = ref->next) + for (ref = exp->ref; ref; ref = ref->next) if (ref->type == REF_COMPONENT) ts = &ref->u.c.component->ts; |