[Bug fortran/69566] Failure of SELECT TYPE with unlimited polymorphic function result

[pault at gcc dot gnu.org]

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

--- Comment #7 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Fri Oct 21 12:50:56 2016
New Revision: 241403

URL: https://gcc.gnu.org/viewcvs?rev=241403&root=gcc&view=rev
Log:
2016-10-21  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/69566
        * resolve.c (fixup_array_ref): New function.
        (resolve_select_type): Gather up the rank and array reference,
        if any, from the selector. Fix up the 'associate name' and the
        'associate entities' as necessary.
        * trans-expr.c (gfc_conv_class_to_class): If the symbol backend
        decl is a FUNCTION_DECL, use the 'fake_result_decl' instead.

2016-10-21  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/69566
        * gfortran.dg/select_type_37.f03: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/select_type_37.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/testsuite/ChangeLog