[Bug fortran/87566] ICE with class(*) and select

[pault at gcc dot gnu.org]

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

--- Comment #7 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Mon Oct 15 16:31:15 2018
New Revision: 265171

URL: https://gcc.gnu.org/viewcvs?rev=265171&root=gcc&view=rev
Log:
2018-10-15  Paul Thomas  <pa...@gcc.gnu.org>
            Tobias Burnus  <bur...@gcc.gnu.org>

        PR fortran/87566
        * resolve.c (resolve_assoc_var): Add missing array spec for
        class associate names.
        (resolve_select_type): Handle case where last typed component
        of the selector has a different type to the expression.
        * trans-expr.c (gfc_find_and_cut_at_last_class_ref): Replace
        call to gfc_expr_to_initialize with call to gfc_copy_expr.
        (gfc_conv_class_to_class): Guard assignment to 'len' field
        against case where zero constant is supplied.

2018-10-15  Paul Thomas  <pa...@gcc.gnu.org>
            Tobias Burnus  <bur...@gcc.gnu.org>

        PR fortran/87566
        * gfortran.dg/select_type_44.f90: New test.
        * gfortran.dg/associate_42.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/associate_42.f90
    trunk/gcc/testsuite/gfortran.dg/select_type_44.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/testsuite/ChangeLog