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

[pault at gcc dot gnu.org]

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

--- Comment #10 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Fri Dec 18 09:34:13 2015
New Revision: 231807

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

        PR fortran/68196
        *expr.c (gfc_has_default_initializer): Prevent infinite recursion
        through this function for procedure pointer components.
        * trans-array.c (structure_alloc_comps): Ditto twice.


2015-12-18  Paul Thomas  <pault@gcc.gnu.org>

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


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