Fix select-type regression
authorTobias Burnus <burnus@net-b.de>
Wed, 17 Oct 2018 19:58:58 +0000 (21:58 +0200)
committerTobias Burnus <burnus@gcc.gnu.org>
Wed, 17 Oct 2018 19:58:58 +0000 (21:58 +0200)
commit91f9b2e0f7054c64e56053993de41b14c5e02226
tree1b775bb502ec341d64250fa025d0c96f01492905
parent4026227f21e6c06cbadfa3ac3ab8699719b2bc65
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
gcc/fortran/resolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/select_type_47.f90 [new file with mode: 0644]