[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 #15 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Mon Nov 20 19:09:34 2017
New Revision: 254966

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

        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-20  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/79072
        * gfortran.dg/class_result_5.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/class_result_5.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-stmt.c
    trunk/gcc/testsuite/ChangeLog