[Bug fortran/79072] ICE with class(*) pointer function result and character value

[pault at gcc dot gnu.org]

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

--- Comment #20 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Thu Nov 23 21:02:48 2017
New Revision: 255120

URL: https://gcc.gnu.org/viewcvs?rev=255120&root=gcc&view=rev
Log:
2017-11-23  Paul Thomas  <pault@gcc.gnu.org>


        Backported from trunk
        PR fortran/79072
        * trans-expr.c (trans_class_vptr_len_assignment): Set from_len
        if the temporary is unlimited polymorphic.
        * trans-stmt.c (trans_associate_var): Use the fake result decl
        to obtain the 'len' field from an explicit function result when
        in that function scope.

2017-11-23  Paul Thomas  <pault@gcc.gnu.org>

        Backported from trunk
        PR fortran/79072
        * gfortran.dg/class_result_5.f90: New test.
        * gfortran.dg/class_result_6.f90: New test.


Added:
    branches/gcc-7-branch/gcc/testsuite/gfortran.dg/class_result_5.f90
    branches/gcc-7-branch/gcc/testsuite/gfortran.dg/class_result_6.f90
Modified:
    branches/gcc-7-branch/gcc/fortran/ChangeLog
    branches/gcc-7-branch/gcc/fortran/trans-expr.c
    branches/gcc-7-branch/gcc/fortran/trans-stmt.c
    branches/gcc-7-branch/gcc/testsuite/ChangeLog