re PR fortran/86119 (Intrinsic len has wrong type if used within select type for...
authorThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 21 Feb 2019 18:01:41 +0000 (18:01 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 21 Feb 2019 18:01:41 +0000 (18:01 +0000)
commit9e6644c6fd3c9cf9f6a2fc6315052c953ab363cf
tree3de186d92dc63e6ad443f16ca94c716d68fc4a25
parenteb74a883e812fc1a05fbf9cfa572043c4ee5af39
re PR fortran/86119 (Intrinsic len has wrong type if used within select type for a class(*) string)

2019-02-21  Thomas Koenig  <tkoenig@gcc.gnu.org>

    PR fortran/86119
    * 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-21  Thomas Koenig  <tkoenig@gcc.gnu.org>

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

From-SVN: r269070
gcc/fortran/ChangeLog
gcc/fortran/class.c
gcc/fortran/gfortran.h
gcc/fortran/simplify.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/warn_conversion_11.f90 [new file with mode: 0644]