From 8811c470d6396b6bf9c99a75e5313a38964ee6c1 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Wed, 6 Oct 2010 22:38:30 +0000 Subject: [PATCH] 2010-10-06 Jerry DeLisle PR fortran/45889 * resolve.c (resolve_transfer): Use expression inside parenthesis to find acutal component to be transgferred. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165068 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/resolve.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 355ed145abb..db563e99140 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-10-06 Jerry DeLisle + + PR fortran/45889 + * resolve.c (resolve_transfer): Use expression inside parenthesis to + find acutal component to be transgferred. + 2010-10-06 Mikael Morin * trans-stmt.c (gfc_trans_allocate): free lhs expr. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 59f185399e6..526e6df32a0 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; -- 2.11.0