[Bug fortran/86119] [8 Regression] Intrinsic len has wrong type if used within select type for a class(*) string

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=86119

--- Comment #8 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Sat Feb 23 22:16:29 2019
New Revision: 269170

URL: https://gcc.gnu.org/viewcvs?rev=269170&root=gcc&view=rev
Log:
2019-02-23  Thomas Koenig  <tkoe...@gcc.gnu.org>

    PR fortran/86119
    Backport from trunk
    * class.c (gfc_get_len_component): Add argument k for kind.
    If the kind of the resulting expression is not equal to k,
    convert it.
    * gfortran.h (gfc_len_component): Adjust prototype.
    * simplify.c (gfc_simplify_len): Pass kind to
    gfc_get_len_component.

2019-02-23  Thomas Koenig  <tkoe...@gcc.gnu.org>

    PR fortran/86119
    Backport from trunk
    * gfortran.dg/warn_conversion_11.f90: New test.


Added:
    branches/gcc-8-branch/gcc/testsuite/gfortran.dg/warn_conversion_11.f90
Modified:
    branches/gcc-8-branch/gcc/fortran/ChangeLog
    branches/gcc-8-branch/gcc/fortran/class.c
    branches/gcc-8-branch/gcc/fortran/gfortran.h
    branches/gcc-8-branch/gcc/fortran/simplify.c
    branches/gcc-8-branch/gcc/testsuite/ChangeLog