diff options
| author | Tobias Burnus <burnus@net-b.de> | 2018-10-17 21:58:58 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2018-10-17 21:58:58 +0200 |
| commit | 91f9b2e0f7054c64e56053993de41b14c5e02226 (patch) | |
| tree | 1b775bb502ec341d64250fa025d0c96f01492905 /gcc/fortran/resolve.c | |
| parent | 4026227f21e6c06cbadfa3ac3ab8699719b2bc65 (diff) | |
| download | gcc-91f9b2e0f7054c64e56053993de41b14c5e02226.zip gcc-91f9b2e0f7054c64e56053993de41b14c5e02226.tar.gz gcc-91f9b2e0f7054c64e56053993de41b14c5e02226.tar.bz2 | |
Fix select-type regression
PR fortran/87632
* resolve.c (resolve_select_type): Use correct variable.
PR fortran/87632
* gfortran.dg/select_type_47.f90: New.
From-SVN: r265248
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 7c03816..7ec9e96 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -8914,7 +8914,7 @@ resolve_select_type (gfc_code *code, gfc_namespace *old_ns) if (ref2) { if (code->expr1->symtree->n.sym->attr.untyped) - code->expr1->symtree->n.sym->ts = ref->u.c.component->ts; + code->expr1->symtree->n.sym->ts = ref2->u.c.component->ts; selector_type = CLASS_DATA (ref2->u.c.component)->ts.u.derived; } else |