[Bug fortran/68196] [4.9/5/6 Regression] ICE on function result with procedure pointer component

["pault at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #4 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Sun Nov  8 16:47:58 2015
New Revision: 229954

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

        PR fortran/68196
        * class.c (has_finalizer_component): Prevent infinite recursion
        through this function if the derived type and that of its
        component are the same.
        * trans-types.c (gfc_get_derived_type): Do the same for proc
        pointers by ignoring the explicit interface for the component.

        PR fortran/66465
        * check.c (same_type_check): If either of the expressions is
        BT_PROCEDURE, use the typespec from the symbol, rather than the
        expression.

2015-11-08  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/68196
        * gfortran.dg/proc_ptr_47.f90: New test.

        PR fortran/66465
        * gfortran.dg/pr66465.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/pr66465.f90
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_47.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/check.c
    trunk/gcc/fortran/class.c
    trunk/gcc/fortran/trans-types.c
    trunk/gcc/testsuite/ChangeLog