diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-10-06 22:38:30 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-10-06 22:38:30 +0000 |
| commit | 6cf860a2ff7c643f1a277cc71c6416c42889f716 (patch) | |
| tree | 4fc57162821ac988c6f8bf8ef05da46a2c45e8de /gcc/fortran | |
| parent | b67bc44c269f315287544ab501aa91b9cdc7bd4f (diff) | |
| download | gcc-6cf860a2ff7c643f1a277cc71c6416c42889f716.zip gcc-6cf860a2ff7c643f1a277cc71c6416c42889f716.tar.gz gcc-6cf860a2ff7c643f1a277cc71c6416c42889f716.tar.bz2 | |
re PR fortran/45889 (Regression with I/O of element of allocatable array in derived type)
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.
From-SVN: r165068
Diffstat (limited to 'gcc/fortran')
| -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; |