From 91f9b2e0f7054c64e56053993de41b14c5e02226 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 17 Oct 2018 21:58:58 +0200 Subject: 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/resolve.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 962f7fb..4f216d9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2018-10-17 Tobias Burnus + + PR fortran/87632 + * resolve.c (resolve_select_type): Use correct variable. + 2018-10-17 David Malcolm * Make-lang.in (selftest-fortran): New. 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 -- cgit v1.1